13518219792
Public myconn As New ADODB.Connection
成都创新互联网站建设公司一直秉承“诚信做人，踏实做事”的原则，不欺瞒客户，是我们最起码的底线！ 以服务为基础，以质量求生存，以技术求发展，成交一个客户多一个朋友！专注中小微企业官网定制，网站设计、成都网站制作，塑造企业网络形象打造互联网企业效应。
Public myrecord As New ADODB.Recordset
Public Sub main()
gdatabasepassword = 数据库密码
gdatabaseusrname = 数据库用户名
gdatabasename = 表名
gipstr = 服务器IP地址
connstring = "Provider=SQLOLEDB.1;Password=" gdatabasepassword ";Persist Security Info=True;User ID=" gdatabaseusrname ";Initial Catalog=" gdatabasename ";Data Source=" gipstr
Set myconn = New ADODB.Connection
myconn.ConnectionString = connstring
myconn.Open
至此数据库就连接上了，可以访问指定的数据表了
窗体文件里这样写
Private Sub Form_Load()
Dim mysql As String
'On Error GoTo errortrap2
connstring = "Provider=SQLOLEDB.1;Password=" gdatabasepassword ";Persist Security Info=True;User ID=" gdatabaseusrname ";Initial Catalog=" gdatabasename ";Data Source=" gipstr
'Debug.Print connstring
Set myconn = New ADODB.Connection
mysql = "select data , BedCode,CODE,PatientName,UpdateTime from MachineData "
'mysql = "select identitycard,sex from patient where name='" List1.Text "'"
myconn.ConnectionString = connstring
myconn.Open
Set myrecord = New ADODB.Recordset
'myrecord.Open "patient", myconn, adOpenDynamic, adLockReadOnly
myrecord.Open mysql, myconn, adOpenDynamic, adLockReadOnly
With myrecord
While Not .EOF()
List1.AddItem .Fields("CODE") "--" .Fields("BedCode") "--" .Fields("PatientName")
List2.AddItem .Fields("DATA")
List3.AddItem .Fields("UpdateTime")
.MoveNext
Wend
End With
GoTo normalend2:
errortrap2: MsgBox "严重错误！！！"
End
normalend2:
myrecord.Close
'''''''''''''''''''''''''''''''''
End Sub
1.首先启动SQL,并把你要连接到VB的数据库附加到SQL中（最好把数据库放在C盘）
2.打开开始——设置——控制面板——管理工具——数据源ODBC
3.在ODBC中选系统DNS——添加——sqlserver——完成
4.在建立的新数据源到SQLserver对话框中，名称自己写一个如：cjgl。服务器选local
——下一步——密码如果没有可以不写——下一步——选中更改默认数据库为,单击下拉列表，选择你自己的数据库——下一步——完成——测试数据源——成功后点确定——点击上一个窗口的确定。这样DNS就设置完了。
5.下面启动VB,
在窗体中添加一个ADOdata 控件，右击查看属性页面
在通用中——使用odbc数据源名称——选择你刚才设置的数据源名称(cjgl)
在记录源项——命令类型课根据自己的需要选择，一般选2 ，——表或存储过程名称,选择你要连接到VB中的一个表
这样就差不多了，如果不会再找我
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：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。
类模块程序有错误，加上下面两句就行：
Public Sub openconn()
If sqlconn Is Nothing = True Then
Set sqlconn = New ADODB.Connection
Set rs = New ADODB.Recordset '=================
End If
If sqlconnstate 1 Then
sqlconn.Open sconn
End If
End Sub
Public Sub closeconn()
If sqlconn.State = 1 Then
sqlconn.Close
End If
End Sub
Public Function runselectsql(ByVal ssqlstring As String) As ADODB.Recordset
Me.openconn
rs.Open ssqlstring, sqlconn, adOpenStatic, adLockReadOnly '/*这里为出现错误91的地方*/
Set runselectsql = rs '=================
End Function
没用过VB，不过可以参考下。
首先数据表wxl应该提前创建好，不论是在数据库先创建，还是在VB中动态创建
数据表的字段是通过VB的MSFlexGrid上给出的字段，那么字段名和类型就可以作为存储过程的参数。sqlserver中用动态SQL执行alter table wxl add 列名来增加列，比如：
--这里只把字段名作为参数，还要自己修改为存储过程
declare @c1 varchar(10)
declare @sql varchar(100)
set @c1='userName'
set @sql='alter table student add '+@c1+' varchar(10)'
exec(@sql)
go
select * from student
你是哪种数据库了。
如果是sql的话，sql本身有一个系统表，那个系统表里面记录的就是用户表的各种信息，包括表类型、列名称，特别复杂，你慢慢研究研究。
如果是其他数据库，没有哪种系统表，或找不到那种系统表，可以用vb的错误机制。
就执行表查询，如果查到了。就存在，没查到，on error goto XXX，就没查到。
理论上就是，不报错，就存在，报错就不存在。
