vb怎么连接网络对接数据库(vb怎样连接网上的数据库)
怎么如何用VB软件连接数据库
dim
dbConn
As
ADODB.Connection
'定义一个ADODB连接
dim
MenuRs
As
ADODB.Recordset
'定义Recordset对象
dim
WordRs
As
ADODB.Recordset
Function
Conn2DB(byval
dbname
as
string)
As
Boolean
'数据库连函数，dbname为数据库文件的绝对路径
Dim
connStr
As
String
'
Access连接字符串
conStr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
dbName
";Persist
Security
Info=False;Jet
OLEDB:Database
Password=abcdef"
Set
dbConn
=
New
ADODB.Connection
'定义一个ADODB连接对象
If
dbConn.State
adStateOpen
Then
'判断ADODB连接是否打开
dbConn.Open
conStr
'如果不是打开状态
就打开连接
End
If
Conn2DB
=
True
End
Function
Function
CloseDb()
As
Boolean
If
dbConn.State
=
adStateOpen
Then
dbConn.Close:
Set
dbConn
=
Nothing
End
If
End
Function
Private
Sub
Form_Load()
dim
dbname
as
string
dbname="D:\db.mdb"
‘数据库文件路径
if
Conn2DB(dbname)=true
then
msgbox
"连接数据库成功!"
CloseDb
end
if
End
sub
如何用vb连接sql server数据库
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如何连接数据库？
使用ADODC数据控件,它与数据库连接方式很多,并支持SQL结构化查询语言,能实现动态查询.但用控件也要写一些代码,以达到应用程序的目的.
数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中根据数据库结构如*.MDB数据库则选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()
Text1 = ""
With Adodc1
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 With
End Sub
SQL查询语言多写多用
VB 用代码进行局域网内数据库的连接
可以先像其他文件一样设置共享，你可以设置成有密码的共享。如果希望修改，还要给予相应的权限。在连接字符串中给的是数据库的密码，而不是要访问对方机器的那个密码。
