VB与SQL数据库的连接
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。2、输入以下代码：“Public conn1 As SqlConnection = New SqlConnection _("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。4、连接参数。5、如果SQL 数据库就在本机，则用以下代码连接：("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。
vb如何连接sql数据库??
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。2、输入以下代码：“Public conn1 As SqlConnection = New SqlConnection _("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。4、连接参数。5、如果SQL 数据库就在本机，则用以下代码连接：("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。
在vb中如何只用datagrid控件连接数据库并显示出来 要完整的代码
Public cnn As adodb.ConnectionPublic rst As adodb.RecordsetPublic Sub setdb() Set cnn = New adodb.Connection cnn.Provider = "Microsoft.Jet.OLEDB.4.O" cnn.ConnectionString = "Data Source=" & App.Path & "\personal.mdb;" cnn.CursorLocation = adUseClient cnn.OpenEnd SubPrivate Sub Form_Load() On Error Resume Next Dim Strsql As String setdb Set DataGrid1.DataSource = Nothing Strsql = "select * from 备忘录 order by 编号" Set rst = cnn.Execute(Strsql) If Err Then MsgBox "读取数据失败" Exit Sub End If If rst.EOF Then Set DataGrid1.DataSource = Nothing Else Set DataGrid1.DataSource = rst End IfEnd Sub我帮你整理了以下，这样好看一些
VB6.0如何在DATAGRID控件中显示数据库内容啊？
这是我做的一个示例，希望对你有所帮助！！Private conn As ADODB.Connection
Private rsmc As ADODB.RecordsetPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()
On Error Resume Next
i = MsgBox("是否清空所有历史记录?", vbYesNo + vbInformation, "提示")
If i = vbYes Then
rsmc.MoveFirst
While Not rsmc.EOF
rsmc.Delete
rsmc.MoveNext
Wend
End If
End SubPrivate Sub Command3_Click()
Me.Hide
End SubPrivate Sub Form_Activate()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xs.mdb"
conn.Open
Set rsmc = New ADODB.Recordset
rsmc.CursorLocation = adUseClient
rsmc.Open "xtZZ", conn, 2, 2
Set DataGrid1.DataSource = rsmc
DataGrid1.Refresh
End Sub
vb中adodc控件怎样用代码来连接数据库？~~~~
具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。
参考代码:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 order by name"
Adodc1.Refresh
DataGrid1.Refresh
End Sub
vb与access数据库连接有几种方法
方法如下：
第一种连接和记录集分开声明
<%
db="db/darden.mdb"
set conn=server.createobject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & "")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ebook order by id desc"
rs.open sql,conn,3,3
rs.addnew
......
......
rs.update (rs.delete)
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("显示文字")
Response.Redirect "homepage.asp"
%>
第二种连接和记录集一同声明
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ebook order by id desc"
conn = "DBQ=" + server.mappath("book.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
rs.open sql,conn,3,3
rs.addnew
......
......
rs.update (rs.delete)
rs.close
set rs=nothing
response.write("显示文字")
%>
ASP数据库简单*作教程
.数据库连接(用来单独编制连接文件conn.asp)
<%
Set conn = Server.CreateObject(ADODB.Connection)
conn.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= & Server.MapPath(\bbs\db1\user.mdb)
%>
