UC知道vb怎么用代码实现数据库的连接（注：使用的是vb 2003）
来源：百度知道 编辑：UC知道 时间：2024/06/18 09:23:03
我使用的是vb2003 ，SQLSERVER数据库， 怎么连接数据库和执行Sql语句呀？查询出来的结果能不能放在DataSet中，如果能，我应该怎么放，如果不能，那查询出来的结果应该存放在哪里？ 如果想把查询结果显示在组合框中，该怎么去写代码，（这个可回答也可不回答，我先把数据查询出来在慢慢研究）
还有一点，我在网上查到了一些代码，可是用的是
dim cn as new adodb.connction 这样的代码，连接SQLSERVER数据库能用吗？怎么复制上去会显示错误？
我刚自学vb，太菜了，代码和解释说明请详细一点，大家多帮帮忙哈！代码越全越好~哈哈~
还有一点，我在网上查到了一些代码，可是用的是
dim cn as new adodb.connction 这样的代码，连接SQLSERVER数据库能用吗？怎么复制上去会显示错误？
我刚自学vb，太菜了，代码和解释说明请详细一点，大家多帮帮忙哈！代码越全越好~哈哈~
Dim lj As String = "Data Source=数据库;Initial Catalog=服务器;Persist Security Info=True;User ID=用户名;Password=密码" (设定数据库信息)
Dim con As New Data.SqlClient.SqlConnection(lj) （定义一个SQL连接）
Dim sql2 As String = "select name from student where age<20"（SQL语句）
con.Open() （打开连接）
Dim cmd As New Data.SqlClient.SqlCommand(sql2, con)
Dim myreader As Data.SqlClient.SqlDataReader = cmd.ExecuteReader（读取数据库）
while myreader.Read() Then
Me.DropDownList1.Items.Add(myreader(0))（把读取的结果循环的加到一个下拉框中）
end while
con.Close() （关闭连接）
不要代码， SQL的数据库连接你怕麻烦的，打开控制面板，管理工具－ODBC数据源，新建一个SQL的数据源。 在程序中再直接拖一个ADO控件，把ADO控件的连接到这个数据源就OK了。执行查询时可以用：
Adodc1.RecordSource = "select * from data1 where 姓名＝“张三” "
Adodc1.Refresh
类似这样的语句。
这样来连接到表格控件显示：
set datagrid.recordsource = adodc1.recordset