关于vbsqlserver的信息

VB 如何连接SQLSERVER

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

VB怎么连接SQL Severe

1.首先启动SQL,并把你要连接到VB的数据库附加到SQL中(最好把数据库放在C盘)

2.打开开始——设置——控制面板——管理工具——数据源ODBC

3.在ODBC中选系统DNS——添加——sqlserver——完成

4.在建立的新数据源到SQLserver对话框中,名称自己写一个如:cjgl。服务器选local

——下一步——密码如果没有可以不写——下一步——选中更改默认数据库为,单击下拉列表,选择你自己的数据库——下一步——完成——测试数据源——成功后点确定——点击上一个窗口的确定。这样DNS就设置完了。

5.下面启动VB,

在窗体中添加一个ADOdata 控件,右击查看属性页面

在通用中——使用odbc数据源名称——选择你刚才设置的数据源名称(cjgl)

在记录源项——命令类型课根据自己的需要选择,一般选2 ,——表或存储过程名称,选择你要连接到VB中的一个表

这样就差不多了,如果不会再找我

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 连接SQLSERVER以及 错误91

类模块程序有错误,加上下面两句就行:

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 对sqlserver 采用SQL语句进行动态创建字段

没用过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

怎样在VB中判断SQLSERVER数据库的一个数据表是否存在

你是哪种数据库了。

如果是sql的话,sql本身有一个系统表,那个系统表里面记录的就是用户表的各种信息,包括表类型、列名称,特别复杂,你慢慢研究研究。

如果是其他数据库,没有哪种系统表,或找不到那种系统表,可以用vb的错误机制。

就执行表查询,如果查到了。就存在,没查到,on error goto XXX,就没查到。

理论上就是,不报错,就存在,报错就不存在。


分享名称:关于vbsqlserver的信息
分享URL:http://pwwzsj.com/article/hoeopd.html