用VB创建了SQL数据库，如何写代码，选择数据库、用户名和密码进入

要连接SQL数据库有两种方法用ADODC或ADO.

方法一: （ADODC)

首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).

之后在表单设置ADODC控件。然后Form_Load()输入以下代码：

Private Sub Form_Load()

ADODC1.ConnectionString = "Provider=SQLOLEDBPassword=密码Persist Security Info=FalseUser ID=用户名Initial Catalog=数据库名Data Source=服务器名"

ADODC1.CommandType = adCmdText

ADODC1.RecordSource = "select * from 表格名称"

ADODC1.Refresh

End Sub

方法二: (ADO)

'首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library.

'*注意以下两段须写在程式最上面（Gerenal一般）中。

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim SQL As String

'然后在Form_Load()输入以下代码：

Private Sub Form_Load()

cn.ConnectionString = "Provider=SQLOLEDBPassword=密码Persist Security Info=FalseUser ID=用户名Initial Catalog=数据库名Data Source=服务器名"

cn.Open

If rs.State = adStateOpen Then rs.Close

rs.CursorLocation = adUseClient

SQL = "select * from 表格名"

rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic

End Sub

首先看你是什么样的数据库，根据你的数据库，先连接到数据库上，再针对你的表“用户名及密码”进行CRUD的 *** 作，下面是多种数据库的连接方法，希望对你有用

SQL：为查询语句，可以存放 *** 作数据库的语句，如：

SQL="select * from 用户表"

SQL="insert into 用户表(用户名，密码) values('" &用户名.Text &"','" &密码.Text &"')"

VB连接数据库的方法

一、ASP的对象存取数据库方法

在ASP中，用来存取数据库的对象统称ADO（Active Data Objects），主要含有三种对象：Connection、Recordset 、Command

Connection：负责打开或连接数据

Recordset：负责存取数据表

Command：负责对数据库执行行动查询命令

二、连接各数据库的驱动程序

连接各数据库可以使用驱动程序，也可以使用数据源，不过我建议大家使用驱动程序，因为使用驱动程序非常方便、简单，而使用数据源比较麻烦。

ODBC链接

适合数据库类型 链接方式

access

"Driver={microsoft access driver(*.mdb)}dbq=*.mdbuid=adminpwd=pass"

dBase

"Driver={microsoft dbase driver(*.dbf)}driverid=277dbq=------------"

Oracle

"Driver={microsoft odbc for oracle}server=oraclesever.worlduid=adminpwd=pass"

MSSQL server

"Driver={sql server}server=servernamedatabase=dbnameuid=sapwd=pass"

MS text

"Driver={microsoft text driver(*.txt*.csv)}dbq=-----extensions=asc,csv,tab,txtPersist SecurityInfo=false"

Visual Foxpro

"Driver={microsoft Visual Foxpro driver}sourcetype=DBCsourceDB=*.dbcExclusive=No"

MySQL

"Driver={mysql}database=yourdatabaseuid=usernamepwd=yourpasswordoption=16386"

OLEDB链接

适合的数据库类型 链接方式

access

"Provider=microsoft.jet.oledb.4.0data source=your_database_pathuser

Oracle

"Provider=OraOLEDB.Oracledata source=dbnameuser

MS SQL Server

"Provider=SQLOLEDBdata source=machinenameinitial catalog=dbnameuserid=sapassword=pass"

MS text

"Provider=microsof.jet.oledb.4.0data source=your_pathExtended Properties'textFMT=Delimited'"

而我们在一般情况下使用Access的数据库比较多，在这里建议连接Access数据库使用下面的方法：

dim conn

set conn = server.createobject("adodb.connection")

conn.open = "provider=microsoft.jet.oledb.4.0" &"data source = " &server.mappath("../db/bbs.mdb")

其中../db/bbs.mdb是你的数据库存放的相对路径！如果你的数据库和ASP文件在同一目录下，你只要这样写就可以了：

dim conn

set conn = server.createobject("adodb.connection")

conn.open = "provider=microsoft.jet.oledb.4.0" &"data source = " &server.mappath("bbs.mdb")

有许多初学者在遇到数据库连接时总是会出问题，然而使用上面的驱动程序只要你的数据库路径选对了就不会出问题了。

sqlserver的连接可以如下：

Set conn=Server.CreateObject("ADODB.Connection")

on error resume next

connstr="Provider=SQLOLEDBPassword=***Persist Security Info=TrueUser Catalog=msdbData Source=localhostConnect Timeout=15"

conn.Open connstr

经常会在连接DB的时候用到，就是不知道代表什么意思。。。

RS.OPEN SQL,CONN,A,B

A:

ADOPENFORWARDONLY(=0)

只读,且当前数据记录只能向下移动

ADOPENKEYSET(=1)

只读,当前数据记录可自由移动

ADOPENDYNAMIC(=2)

可读写,当前数据记录可自由移动

ADOPENSTATIC(=3)

可读写,当前数据记录可自由移动,可看到新增记录

B:

ADLOCKREADONLY(=1)

缺省锁定类型，记录集是只读的，不能修改记录

ADLOCKPESSIMISTIC(=2)

悲观锁定，当修改记录时，数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始，则立即锁住记录。

ADLOCKOPTIMISTIC(=3)

乐观锁定 ，直到用Update方法提交更新记录时才锁定记录。

ADLOCKBATCHOPTIMISTIC(=4)

批量乐观锁定，允许修改多个记录，只有调用UpdateBatch方法后才锁定记录。

当不需要改动任何记录时，应该使用只读的记录集，这样提供者不用做任何检测。

对于一般的使用，乐观的锁定可能是最好的选择，因为记录只被锁定一小段时间，数据在这段时间被更新。这减少了资源的使用。

---