VB连接SQL数据库做的小程序如何在别人的电脑上打开

以你自己的电脑当做SQL服务器，连入局域网，而你的系统在设计时就就应该设计成网络版，多个电脑终端通过网络调用数据库中的数据。

如果没有网络，则需要从你的电脑的SQL中的数据库文件（有两个文件，扩展名不同，你可以在企业管理器，数据库属性里看到）复制到老师的电脑上，然后在SQL的企业管理器中附加新数据库，选中你的那两个文件，进行附加就行了，具体在网上查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：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

其实在SQL语句值输入查询条件即可：

strSQL = "Select * from 数据表名称 Where Psn_Name='" & Text1.Text &"'"

如果需要模糊查询，这样：

strSQL = "Select * from 数据表名称 Where Psn_Name Like '%" & Text1.Text &"%'"

这仅仅是“公司内部号码”查询，如果需要其他查询修改相应语句即可。

---