7,763
社区成员
发帖
与我相关
我的任务
分享
Public adoCon As New ADODB.Connection '定义一个数据连接
Public CnnStr As String
Public Sub Main() '定义一个公共主函数,用于连接数据库
CnnStr = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=. "
adoCon.Open (CnnStr)
End Sub
Private Sub Command1_Click()
Main
Set DataGrid1.DataSource = Adodc1 '设DateGrid与Adodc连接
Adodc1.ConnectionString = CnnStr
Adodc1.RecordSource = "select * from 数据表名 where 数据表中的字段名='" & 要查询的内容 & " ' " '查询出想要的内容
Adodc1.Refresh '刷新
adoCon.Close '关闭数据库
End Sub