通过什么控件调用SQL数据库里的信息（表已建好并有信息内容）在LISTBOX或是COMBOX里显示出来

Question

如标题，通过选择COMBOX里的用户对应地在LISTBOX里显示用户信息
这些内容都是在SQL数据库里的，我主要是想打印这些用户信息，还有打印用什么控件，高手请多指点。最好帮我初始化下！

Answer 1

Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.RecordsetPrivate Sub Form_Load()
Dim apppath As String
Dim dbfilename As String
Dim ConnectString As String
Dim i As Integer
Set conn = New ADODB.Connection
Dim sql As String
        Set conn = New ADODB.Connection
        dbfilename = "F:\csdn_vb\controls\listbox\article.mdb"
        ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                   dbfilename & ";Persist Security Info=False;"
                
        On Error Resume Next
        With conn
             .CursorLocation = adUseClient
             .Open ConnectString
        End With
        Set rs = New ADODB.Recordset
rs.Open "select id,mc from mz", conn, 1, 3
If rs.EOF Then
Exit Sub
End IfFor i = 0 To rs.RecordCount - 1
List1.AddItem rs.Fields("mc")
List1.ItemData(i) = rs.Fields("id")
rs.MoveNext
Next
rs.Close
Set rs = Nothing
End SubPrivate Sub List1_Click()
Dim strsql As String
strsql = "select memo from mz where id=" & List1.ItemData(List1.ListIndex)
Set rs = New ADODB.Recordset
rs.Open strsql, conn, 1, 3
Dim s As String
Text1.Text = rs.Fields("memo")
End Sub

Answer 2

do while 或者for 等语句循环添加进去

Answer 3

还有打印用什么控件，高手请多指点。最好帮我初始化下！datareportOption ExplicitDim adoConnectionX As New ADODB.Connection
Dim adoRecordsetX As New ADODB.RecordsetPrivate Sub DataReport_Initialize()
  'printer.Orientation =
  '以下准备数据源(记录集)
  '要打印的数据源(记录集)必须是一个全局级别的，或者是本设计器模块级别的记录集
  
  '数据库使用的是 Northwind.mdb
  adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Northwind.mdb"
  adoRecordsetX.Open "select * from 产品", adoConnectionX
    
  Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源

Answer 4

在本机的ODBC上如何设置才能与服务器的数据库相连
我连的时候老是测试通不过，显示用户“TOR”登陆失败
这是怎么回事，要怎么设置才行？

Answer 5

上面是access的
Set conn = New ADODB.Connection
ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=MyBookShop;Data Source=yang"不建议使用odbc
看数据库的连接
http://www.connectionstrings.com

Answer 6

你给我的网站打不开啊，不用ODBC用什么联，我在主机上是可以联的，现在想在自己的机上联主机上的数据库服务器。

Answer 7

ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=你的数据库名;Data Source=数据库服务器名"多刷新

Answer 8

龙卷风能给你的程序加上点注释吗，我一时看不懂
没用过SQL的，SQL语句看不懂啊！

Answer 9

Private cnnAdd As New ADODB.Connection
Private AdoRSAdd As New ADODB.Recordset            If AdoRSAdd.State = 1 Then
                AdoRSAdd.Close
                cnnAdd.Close
                Set AdoRSAdd = Nothing
            End If
            
            
            cnnAdd.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & App.Path & "\SCGL.mdb;"
            AdoRSAdd.Open Strcnn, cnnAdd, adOpenStatic, adLockBatchOptimistic        'Strcnn为SQL查询语句       With AdoRSAdd
            .MoveFirst
            i = 0
            For i = 0 To .RecordCount - 1
                Combo1.List(i) = Trim(IIf(IsNull(.Fields(0)), "", .Fields(0)))          '这里的数据表只有一列
                .MoveNext
            Next
        End With

Answer 10

'SQL中的使用
Option ExplicitPrivate conn As ADODB.Connection
Private rs As ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
   "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=机器名或IP"
conn.Openrs.CursorLocation = adUseClientsqlstr = "select  distinct 某字段 from 表  "rs.Open sqlstr, conn
Do Until rs.EOF
   Combo2.AddItem rs(某字段).Value  '调用表里的数据
   rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
'Access中的使用
Option ExplicitPrivate conn As ADODB.Connection
Private rs As ADODB.Recordset'conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "数据.mdb;Persist Security Info=False"  
conn.Openrs.CursorLocation = adUseClientsqlstr = "select  distinct 某字段 from 表  "rs.Open sqlstr, conn
Do Until rs.EOF
   Combo2.AddItem rs(某字段).Value  '调用表里的数据
   rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

Answer 11

你要ODBC的设置方法吗?
我们公司的软件就用到了，告诉我你的邮箱吧!我发一份指导书给你参考。