你怎么写的?
Private Sub cmdFind_Click()
Dim FilePath As String
FilePath = "C:\cbsp\cbsp.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from syslog"
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub cmdFind_Click()
Dim FilePath As String
FilePath = "C:\cbsp\cbsp.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from syslog"
Set DataGrid1.DataSource = Adodc1
End Sub
dim rs as new recordset
dim sqlstr as string
conn.open "driver={sql server};server=yourserver;uid=youruid;pwd=yourpwd;database=yourdatabase"
sqlstr="select * from yourtable"
rs.open sqlstr,conn,1,3
'其中 yourserver是你的服务器名或服务器的IP地址;youruid是你登录数据库服务器的帐号;yourpwd是你登录数据库服务器的密码;yourdatabase是你的数据库名;yourtable是你的表名。