本人知道用data控件可以调用access数据库的!
如下所示:
Data1.DatabaseName = "D:\Program Files\Microsoft Visual Studio\VB98\管理系统.mdb" 但SQL server 怎么通过Data控件调用啊?最好是一段小代码,先谢了~!~!
如下所示:
Data1.DatabaseName = "D:\Program Files\Microsoft Visual Studio\VB98\管理系统.mdb" 但SQL server 怎么通过Data控件调用啊?最好是一段小代码,先谢了~!~!
dim conn as new adodb.connection
conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=SA;pwd=SA的密码;database=数据库名"
.CommandTimeout = 300
.Open
End With
一定要用控件也是用adodc
下面是部分代码,请参考
Private Sub Form_Load()
'连接字符串
Adodc1.ConnectionString = "driver={sql server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=erp1"
'查询businessman表中全部信息
Adodc1.RecordSource = "select * from businessman"
'用datagrid显示查询信息
Set DataGrid1.DataSource = Adodc1 End Sub