Dim r As ADODB.Recordset r.CursorLocation = adUseClient r.open "SELECT * FROM [TableName]","ConnectionString" Set datagrid1.DataSource = r
xiaoleifeng(小雷),还是不行啊,有具体代码让我看看吗,谢谢了
adodc就简单多了, 在datagrid属性窗口设置datasource=adodc1就可以了
feihong0233(泓) ,你写的和我写的有区别吗?
可能是数据连接出错,建议用adodc控件或DataEnvironment来产生数据连接
Dim cnn1 As New ADODB.Connection Dim rst As New ADODB.Recordset Dim cnnstr As String cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;" cnn1.Open cnnstrSet Form1.MSHFlexGrid1.DataSource = rst rst.Close cnn1.Close
Set adocnn = New ADODB.Connection
Set adorst = New ADODB.Recordset
adocnn.Open "dbcardusemanger", "sa", ""
sql = "select nPeopleNum,sUserName,sUserPassword,sLimitedCode from tb_SysUserLimitedInfo "
adorst.Open sql, adocnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = adorst帮帮忙,老板会吃了我的
adocnn.Open "driver=sql server;server=YourServerName;Database=YourDatabaseName", "sa", ""
用右键选择“属性页”“通用”其中选择“使用ODBC数据源名称”如还未建立,单击“新建”选择“用户数据源”选择“NEXT”选择“SQL SERVER”就建好了。
接着就设置adodc控件和Datagrid控件,相信你能完成!如还有问题请联系!
正在试adodc.
r.CursorLocation = adUseClient
r.open "SELECT * FROM [TableName]","ConnectionString"
Set datagrid1.DataSource = r
在datagrid属性窗口设置datasource=adodc1就可以了
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrSet Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
如果想在mshflexgrid上直接输入东西,就象edit框一样,可以吗,现在好象不能在上面修改.