vb连接sql数据库cnopen

A. 如何用VB连接SQL数据库做登录

VB连接SQL数据库，可通过ADO数据对象和SQL结构化查询语言实现。

1. ADO (ActiveX 数据对象)， 这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft
   的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。

2. 结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。

3. 代码示例：

   Private Sub XPButton1_Click()

   On Error GoTo finish '防错代码，防止意外而导致的退出

   sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"

   cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)" '这是连接SQL数据库的语句

   cn.Open

   rs.CursorLocation = adUseClient

   rs.Open sql, cn, adOpenDynamic, adLockOptimistic

   '以上使用最通用的方法来查询数据库中是否有匹配的记录

   If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的

   If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出

   pnum = pnum + 1

   MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum

   rs.Close

   cn.Close

   Text1.Text = ""

   Text2.Text = ""

   Text1.SetFocus

   Exit Sub

   Else

   MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"

   End

   End If

   Else

   loginname = rs.Fields(0)

   Form1.Show

   rs.Close

   cn.Close

   End If

   Exit Sub

   finish:

   MsgBox Err.Description

   rs.Close

   cn.Close

   End Sub

4. 注意cn.ConnectionString此句需依据实际的SQL数据库建立连接获得的字符串。

B. vb的sql数据库连接

先建一个工程,建立一个form1,form1中的代码如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
Text1 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME")
Text3 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD")
Text2 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME")
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
Exit Sub
strErrMag:
Mag = "数据库连接错误，在下列的窗体中请输入正确的信息！"
MsgBox Mag, vbOKOnly, "错误:数据库连接"
Me.Enabled = False
Load Form2
Form2.Show
End Sub
再建一个form2,form2的代码如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
MsgBox ("数据库连接成功！"), vbInformation + vbOKOnly, "提示信息"
Set CnNew = Nothing
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME", Trim(Text1)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD", Trim(Text3)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME", Trim(Text2)

Form1.Enabled = True
Unload Me
Exit Sub
strErrMag:
Mag = "数据库连接错误，在下列的窗体中请输入正确的信息！"
MsgBox Mag, vbOKOnly, "错误:数据库连接"
End Sub

试试看吧,这个把SQL的登录名与密码放在注册表中,同样也可以在注册表中放软件的试用期限!

C. vb6.0中怎样远程访问access数据库

在工程里引用microsoft activex data objects 2.7 library

Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句
Private Sub Form_Load()
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""
sql = "select * from 表名"
rs1.Open sql, cn
rs1.MoveFirst
Do While Not rs1.EOF
Combo1.AddItem rs1("字段名")
rs1.MoveNext
Loop
rs1.Close
End Sub

上面的是打开数据库进行查询，并将查询结果写入列表框
不清楚的留言给我，发一个可以运行的程序给你参考

D. VB6.0 如何连接SQL 数据库

你在SQL SERVER中新建一个数据库，然后将这个数据库生成脚本文件，根据情况修改后转存为MASTER下的一个存储过程。至于数据库名和数据文件路径可以做成参数传入，然后在VB中用连到MASTER后执行这个存储过程。

用VB与建立的SQL数据库连接

1.使用ODBC DSN连接字符串
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword
----------------------------------------------

2.使用无ODBC DSN的连接字符串
(1)标准安全性
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
------------------------------------------------

(2)信任连接(分两种）
1）连接字符串1
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Uid=;Pwd=；
2）连接字符串2
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Trusted_Connection=yes
---------------------------------------------------------------------------

(3)连接本地SQL SERVER
Driver={SQL Server};Server=(local);DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------------

(4)连接远程SQL SERVER
Driver={SQL Server};Server=xxx.xxx.xxx.xxx; _
Address=xxx.xxx.xxx.xxx,1433; _
Network=DBMMSOCN;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------

3.使用OLEDB PROVIDER FOR SQL SERVER的连接字符串
(1)标准安全性
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName
-------------------------------------------

(2)信任连接
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName; _
Integrated Security=SSPI
--------------------------------------

(3)连接到命名实例
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=myServerName\myInstanceName; _
Password=myPassword; _
User ID=myUsername
--------------------------------------

(4)连接到本地SQL SERVER
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=(local)
-----------------------------------------

（5）连接到远程SQL SERVER
Provider=SQLOLEDB.1; _
Netwprk Library=DBMMSOCN; _
Data Source=xxx.xxx.xxx.xxx,1433; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName;