十万火急:关于VB和SQL数据库的问题~

我想要用VB连接SQL2000数据库,并且在VB窗体中用控件(如:TextBox控件)显示,并且编辑连接的该数据库中表的相应内容,该如何写代码????????
谢谢,十万火急!!~

[此贴子已经被作者于2007-5-8 17:32:35编辑过]

用ado控件可以直接连到数据库上,然后text可以和这个孔件联系就可以了.

回复：（w448608395）十万火急:关于VB和SQL数据库的问...

你可以使用ADO Data控件
重点是设置它的ConnectionString属性 例如：driver={SQL Server};server=bigsmile;uid=sa;pwd=pwd;database=pubs

下面的代码将ADO Data 和 Text1 捆绑后（在Text1中将显示数据库中"Title"字段的信息）

Private Sub Form_Load()
With ADODC1
.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
. RecordSource = "Select * From Titles Where AuthorID = 7"
End With
Set Text1.DataSource = ADODC1
Text1.DataField = "Title"
End Sub

还有疑问 请留言（不过我机器上没安装SQL服务器）

谢谢各位大大,我先试验一把~~

连接入了数据库的某张表了，然后想要执行对它的插入，删除数据等工作，应该怎么写？？？？？？？？？

Dim conndb 'conndb为连接

Dim sql As String

Dim connstr As String

Set conndb = CreateObject("adodb.connection")

connstr = "driver={SQL SERVER};server=zhangdy;uid=sa;pwd=;database=master"

conndb.Open connstr
sql = "select xm from ＊"

*代表你要运行的表的名称　
下面就可以执行你的sql语句了

回复：（yuan1983）Dim conndb \'conndb为连接Dim sql...

Dim conndb 'conndb为连接
Dim sql As String

Dim connstr As String

Set conndb = CreateObject("adodb.connection")

connstr = "driver={SQL SERVER};server=＊;uid=＊;pwd=＊;database=＊"

conndb.Open connstr
下面就可以执行sql语句了
server表示计算机名　　
uid表示用户名
pwd表示用户密码
database表示数据库名字