UC知道在VB中怎么样以网格显示SQL中的数据
来源：百度知道 编辑：UC知道 时间：2024/05/10 19:56:22
我是用SQL SERVER与VB相连的，但DATAGRID控件不能显示出SQL表中的数据,怎么办啊,急,跪求!
还是没有用啊,SQL中的数据还是不能显示出来,谁来帮帮我啊,很急!已经与数据库完全连接好了.
Dim strsql As String
Dim odbcstr As String, objconn As New ADODB.Connection, objrs As New ADODB.Recordset
odbcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=;Data Source="
objconn.Open odbcstr
strsql = "select * from users"
objrs.CursorLocation = adUseClient
objrs.CursorType = adOpenStatic
objrs.LockType = adLockReadOnly
objrs.Open strsql, objconn
datagrid1.datasourse=objrs
能够正常运行了，但不能把数据库中的数据显示出来,到底怎么回事啊??
还是没有用啊,SQL中的数据还是不能显示出来,谁来帮帮我啊,很急!已经与数据库完全连接好了.
Dim strsql As String
Dim odbcstr As String, objconn As New ADODB.Connection, objrs As New ADODB.Recordset
odbcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=;Data Source="
objconn.Open odbcstr
strsql = "select * from users"
objrs.CursorLocation = adUseClient
objrs.CursorType = adOpenStatic
objrs.LockType = adLockReadOnly
objrs.Open strsql, objconn
datagrid1.datasourse=objrs
能够正常运行了，但不能把数据库中的数据显示出来,到底怎么回事啊??
怎么不可以啊，你是怎么做的呢？
应该是可以的呢。
datagrid1.datasourse=objrs 改为
set datagrid1.datasourse=objrs
肯定是可以的，使用不当吧？
如果你只是用来显示的话，建议用MSHFlexGrid这个功能强劲些。
使用datagrid控件，我给你一个例子，你直接copy就可以了
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select item_id as 部品号,item_name as 部品名,item_uom as 单位,item_desc as 详细描述,create_date as 创建时间,create_man as 创建人 "
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open sql, conn
Set DataGrid1.DataSource = rs
Set rs = Nothing
sql = ""