不知道你为什么要用ADOC来配置...直接用VB代码就OK了。
 
公共模块：
 
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
 
Dim ConnStr As String
 
Dim Conn As ADODB.Connection
 
Dim rs As ADODB.Recordset
 
Set rs = New ADODB.Recordset
 
Set Conn = New ADODB.Connection
 
'On Error GoTo MyErr:
 
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(IP地址)" '这是连接SQL数据库的语句
 
Conn.Open ConnStr
 
rs.CursorLocation = adUseClient
 
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
 
End Function
 
调用：
 
SQL = "SELECT * FROM 用户表 WHERE 用户名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "
 
Set rs = Selectsql(SQL)
 
取消
 
评论

 
在web.config中配置：
 
’连接Oracle
 
Dim strConnect As String = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("conn").ToString()
 
Dim conn As OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(strConnect)
 
’返回数据
 
Public Function getTable(ByVal sql)
 
conn.Open()
 
Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, conn)
 
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm)
 
Dim dt As System.Data.DataTable = New System.Data.DataTable()
 
da.Fill(dt)
 
conn.Close()
 
Return dt
 
End Function
 
’返回受影响的行数
 
Public Function impactDate(ByVal sql)
 
conn.Open()
 
Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, conn)
 
Dim i As Integer = comm.ExecuteNonQuery
 
Return i
 
End Function
 
取消
 
评论

在VB6.0中，数据库访问接口有三种
 
ActiveX 数据对象(ADO)
远程数据对象(RDO)
数据访问对象(DAO)
 
使用ActiveX（ActiveX Data Object）数据对象连接数据库
 
1.使用ADO连接数据库
 
【vb】
 
Provider=Drive;Password=UserPassword;PersistSecurity Info=False;User ID=UserName;Initial Catalog=Data Name;DataSource=ServerName 
 
例：使用ADO控件连接student数据库删除线格式
 【vb】
 
PrivateSub Form_Load()
		Adodc1.connectionstring="Provider=SQLOLEDB.1;Password=;PersistSecurity Info=False;User ID=sa;Initial Catalog=student;Data Source=." 
End Sub 
 
2.使用DAO连接对象连接数据库
 ADO的数据库访问技术，不仅可以通过VB提供的控件实现，还可以通过ADO相关的对象实现。ADO对象包括了command对象、connection对象、recordset对象、Error对象、field对象、parameter对象、property对象，其中，connection对象是用来管理与数据库的连接的；
 
例：使用connection对象的Open方法连接名为student的数据库
 【vb】
 
Dim cnn as ADODB.Connection 
Privatesub Form_Load() 
set cnn=New ADODB.Connection 
Cnn.open="provider=SQLOLEDB;password=;PersistSecurity Info=true;User ID=sa;Initial Catalog=student;Data Source=." 
End Sub 
 
3.使用DAO（Data Access Object，数据访问对象)连接SQL Server
 使用DAO连接SQL Server可以使用VB提供的Data控件实现，使用其访问SQL Server时需要掌握connect属性用于定义所要连接数据库的类型，由于Data控件采用的是Access/Jet为数据引擎，所以访问SQL Server时需要用ODBC间接访问
 connect属性访问ODBC时的字符串格式设置：
 【vb】
 
ODBC；DataBase=DataName；UID=UserName；PWD-UserPassword；DSN=DataSourceName 
 
例：用Data控件通过ODBC中的studentinfo数据源连接名为student的数据库
 【vb】
 
PrivateSub Form_Load() 
Data1.connect="ODBC;DataBase=student;UID=sa;PWD=123;DSN=studentinfo" 
End Sub 

 
我的代码是连接到SQL数据库，输入用户密码，点登录，然后打开下一个界面，现在数据库是连上了，但IF语句无效，直接走ELSE，菜鸟一个，高手帮我改改～(这段代码原来连的是ACCESS数据源...
 
我的代码是连接到SQL数据库，输入用户密码，点登录，然后打开下一个界面，现在数据库是连上了，但IF语句无效，直接走ELSE，菜鸟一个，高手帮我改改～(这段代码原来连的是ACCESS数据源库) Dim sConnString As String = _ "Data Source =(local);Initial Catalog =LiMin SuperMarket Manage System;Integrated Security=SSPI" Dim myCn As New SqlConnection Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Try myCn.ConnectionString = sConnString myCn.Open() Dim mySQL As String = "Select PersonnelID From Users Where Account='" & Me.boxname.Text & "' And Code='" & Me.PasswordTextBox.Text & "'" Dim sComm As New SqlCommand(mySQL, myCn) Dim s As Object = sComm.ExecuteScalar If sComm.ExecuteScalar Then Dim User_MainForm As New form1 User_MainForm.Show() Else MsgBox("用户名或密码不正确，请重试！") End If Catch ex As OleDbException MsgBox(ex.Message) Finally myCn.Close() '关闭连接 End Try End Sub
 
展开