vb的sql数据库连接

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

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.0Data

Source="

&

dbName

&

"Persist

Security

Info=FalseJet

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

租一个云数据库就可以了，学习下数据库有关的知识，以及云数据库有关的api，就可以了！

如果是云服务器，一般需要学习建立网站有关的知识和网页制作有关的语言！学vb最容易的可以是asp，支持vbscript脚本！

---