| 全能ASP/PHP/ASP.NET主机，支持月付 | 专业 MSSQL 数据库空间，支持月付 | 专业 MySQL 数据库空间，支持月付 | 买域名，送MP3、MP4 |
| 高端软件开发 = 年薪十万不是梦 | 赛孚耐:软件保护加密专家 | 身份认证令牌USB KEY | 买空间，免费送域名（厦门中资源） |
2007-4-29 11:04
2007-4-29 11:21
告诉一个具体的方法吧
2007-4-29 11:26
你连书都没看，说了也是白说
2007-4-29 11:28
2007-4-29 11:44
2007-4-29 11:45
2007-4-29 11:56
下面这样可以也不行呀
Private Sub Form_Load()
Dim sql As String
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
sql = "provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=itkpc;data source=tpics-server"
cn.ConnectionString = sql
cn.Open
sq = "select * from itktz"
'Set rec = cn.Execute(sq)
'Adodc1.Refresh
rs.Open "select name from itktz", cn, 1, 3
Combo1.Clear
For icount = 0 To rs.RecordCount - 1
Combo1.AddItem rs(0)
rs.MoveNext
Next
rs.Close
Set rs = Nothing
2007-4-29 13:31
2007-4-29 13:32
2007-4-29 14:53
