50分求一简单代码，把Sql Server数据库显示到DataGrid

Question

RT,最好还有对Sql Server操作的实例

Answer 1

Public conn As New ADODB.Connection
conn'连接数据库不用写了吧  
dim Rsbl1 As New ADODB.Recordset
  Set Rsbl1 = Nothing
  Rsbl1.Open "select * from 表", conn, adOpenStatic, adLockReadOnly
  Set DataGrid1.DataSource = Rsbl1

Answer 2

Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
   strsql="select 字段 from 表"
   Set Db = New Connection
   Db.CursorLocation = adUseClient
   '下面的连接数据字符串你要修改一下
   
   Db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=king;Initial Catalog=cpy;Data Source=RJB-CL"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = adoPrimaryRS
end sub

Answer 3

Set con = New Connection
con.CursorLocation = adUseClient
con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=king;Initial Catalog=ldz;Data Source=RJB-CL"dim strsql as string
strsql="select 字段 from 表"
Dim rs As new Recordset
   rs.Open strsql, con, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = rs

Answer 4

有沒有更詳細一點的,帖上就可以用的
-------------------------------------
贴上就可以用？楼主的要求是不是过分了点，你至少得改一下连接字符串和查询语句才能用，别人又不知道你的SQL服务器名和数据库名，以及你要查询的表名称。
现在操作数据库多数都用ADO，给你一段ADO的代码，贴上了改一下连接串和查询语句就能用：1.新建工程，在"工程"->"引用"->Microsoft ActiveX Data Objects 6.0 Library
2.在窗体上放一个DataGrid1,然后帖上下面的代码：Dim rs As New ADODB.RecordSet
Private Sub Form_Load()
    On Error GoTo err
    Dim cn As New ADODB.Connection
    '有密码的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=yourSERVICE"
    '无密码的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 你的表", cn, 3, 2 
    Set DataGrid1.DataSource=rs
    Exit Sub
err:
    MsgBox err.Description
End Sub