如何在vb中调用sql，并把结果显示在datagrid中

[vcshcn]

为什么我的总显示不出来

[breadjyh]

定义RecordSet
set DataGrid1.DataSource=RecordSet

[lily0000000]

同意breadjyh(新小鱼) ，如果不进行必要的设置是显示不出来的

[wei131420]

VB调用SQL可以通过ADO或者DAO都可以，至于用DataGrid控件就如上面两位所说的！

[vcshcn]

我试试..

[vcshcn]

我用的是ado

[jyd30]

dim Rs as new Adodb.recordset
Rs.Open "select * from Table1 where salary>5000",CON
set DataGrid1.DataSource=Rs

[liad]

用MSHFlexGrid也是这样

[黑靥]

dim Con as Adodb.Connection
dim RS as Adodb.RecordSet
dim SqlStr as string
Sqlstr = "Select * From TableName"
set RS = Con.Execute(SqlStr)
set datagrid1.DataSource = RS.DataSource

[baguijin999]

Dim RS_Get_Field_Name_Array As ADOR.Recordset
Set RS_Get_Field_Name_Array = New ADOR.Recordset

'查询得到记录集
RS_Get_Field_Name_Array.Open "SELECT t_field.f_field_name " _
& "FROM t_sheet_main INNER JOIN t_field ON t_sheet_main.f_form_id=t_field.f_form_id " _
& "WHERE t_sheet_main.f_sheet_id= '" & Pra_Paper_ID & "' " _
& "ORDER BY t_field.f_field_id ", _
Gbl_DB_InFact, adOpenStatic, adLockReadOnly

If RS_Get_Field_Name_Array.RecordCount > 0 Then
RS_Get_Field_Name_Array.MoveFirst
RS_Get_Field_Name_Array.MoveLast
RS_Get_Field_Name_Array.MoveFirst

ReDim Tmp_P_Lab_Parts_Array(RS_Get_Field_Name_Array.RecordCount) As Variant

For i = 1 To RS_Get_Field_Name_Array.RecordCount
Tmp_P_Lab_Parts_Array(i) = RS_Get_Field_Name_Array("f_field_name")

RS_Get_Field_Name_Array.MoveNext '指向下条记录


Next

End If

RS_Get_Field_Name_Array.Close
Set RS_Get_Field_Name_Array = Nothing

[vcshcn]

为什么这段代码总显示：The rowset is not bookmarkable.

Private Sub Command1_Click()
Dim obj As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim s As String
s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb;Persist Security Info=False"
obj.Open s
rs.Open "select * from Authors", obj
Set DataGrid1.DataSource = rs
rs.Close
obj.Close
End Sub

[footballboy]

试试将游标改成客户端游标

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String

Private Sub Command1_Click()
Set DataGrid1.DataSource = rs
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\集邮助手\邮票.mdb;Jet OLEDB:DataBase Password=zcb;Persist Security Info=False"
strsql = "select * from 邮票基本信息表"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsql, cnn
End Sub