本文目录
- vb如何连接sql数据库,求源码
- vb动态连接SQL数据库的代码
- VB如何用纯代码连接SQL数据库
- 如何用VB实现连接SQL数据库
- vb连接SQL数据库，要代码
- 怎样在vb中访问sql数据库代码是什么
- VB怎么连接MSSql数据库
- vb和sql数据库连接的代码
- VB连接SQL
- VB如何连接SQL数据库，模块代码怎么改，如下：
vb如何连接sql数据库,求源码
Dim conn As New ADODB.Connection ’创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset ’创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用Dim CnStr As String, Sql As String ’创建两个字符串变量分别存放两个集合的SQL语句代码段1、装载数据库(不属于Recordset集合)=============Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$’以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码FileName = App.Path & “\’数据库名’“DbIp = “数据库地址“DbName = “数据库名“DbUser = “数据操作员用户名“DbPw = “操作员密码“’以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量’1)连接Access数据库:’-------------------CnStr = “PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=“ & FileName & “;Jet OLEDB:Database Password=“ & DbPw’2)连接Oracle数据库:’-------------------CnStr = “PROVIDER=MSDAORA.1;Password=“ & DbPw & “;User ID=“ & DbUser & “;Data Source=“ & FileName & “;Persist Security Info=True“’其中:’PASSWORD: 密码’User ID: 用户号’Data Source: 数据库名’Persist Security Info:’Provider:’3)连接VF的DBF库:’----------------CnStr = “PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPro Driver};UID=“ & DbUser & “;SourceDB=“ & FileName &“;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;“’4)连接SQL的数据库’------------------CnStr = “PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=“ & DbUser & “;pwd=“ & DbPw & “;DRIVER=SQL Server;DATABASE=“ & DbName & “;WSID=GQSOFT;SERVER=“ &DbIP’也可以使用这段简易代码 CnStr = “Provider=SQLOLEDB;Data Source=“ & DbIp & “;DATABASE=“ & DbName & “;UID=“ & DbUser & “;pwd=“ & DbPwConn.Open cnstr ’使用 Connection 集合的 Open 方法 与数据库建立连接2、Recordset集合的常用方法==========================’1)打开一个表’------------Sql = “select * from 表名“ ’SQL查询语句Set rs = New ADODB.Recordset ’新建一个实例rs.Open Sql, conn ’使用 Open 方法打开数据库中的一个表’注意，这种打开方式只能使用 rs.MoveNext （即，向后移动行坐标）而不能像其他方向，并且不能修改数据内容’’rs.Open Sql, conn，1 ’虽然只加了个“1”，但这种方法可以向任何方向移动行坐标。’’以下参数代表了这个可选值的含义’0 = adOpenForwardOnly （默认值）打开仅向前类型游标。 ’1 = adOpenKeyset 打开键集类型游标。 ’2 = adOpenDynamic 打开动态类型游标。 ’3 = adOpenStatic 打开静态类型游标。’’虽然使用以上方法可以可以实现行坐标（游标）的任意移动，但是仍然无法写入数据。因此需要进一步的对Open 方法进行完善’rs.Open Sql, conn, 1, 3 ’后面的3是确定读写权限的’以下参数代表了这个可选值的含义’1 = adLockReadOnly （默认值）只读 — 不能改变数据。 ’2 = adLockPessimistic 保守式锁定（逐个） — 在时立即锁定数据源的记录。 ’3 = adLockOptimistic 开放式锁定（逐个） — 只在调用 Update 方法时才锁定记录。 ’4 = adLockBatchOptimistic 开放式批更新 — 用于批更新模式（与立即更新模式相对）。’’2)读写数据’----------’增加一行记录并对新记录的内容进行修改并保存可以如下写法rs.AddNew ’增加一行记录rs(“...“)=“...“ ’数据读写操作...rs.UpDate ’保存写入资料，如果使用只读权限，则不能使用这个方法rs.Close ’这个方法用来关闭你所代开的表，如果不使用这个方法也可以，但是数据库仍然认为你在对标进行锁定，可造成数据库负担过重2、对数据进行筛选和排序=======================Sql = “select * from 表名“ ’SQL查询语句’以上为打开一个表的所有内容Sql = “select top 50 * from 表名“ ’SQL查询语句’以上为只打开前50行的记录Sql = “select top 50 列名1,列名2,列名5 from 表名“ ’SQL查询语句’以上为只打开前50行的记录，并且只打开第1、2、5列数据Sql = “select * from 表名 where 列名1=’“ & 字段 & “’“ ’SQL查询语句’以上为一个简单的筛选，表示打开的内容必须符合 任何不在字符表中的单一字符 ’注：根据数据库的不同?、_和*、%的应用有所差别，比如SQL只使用% 和 _ 分别代表多个字符和单一字符Sql = “select * from 表名 where 列名1=’“ & 字段 & “’ ORDER BY 字段1 ASC“ ’对查询结果进行升序排列Sql = “select * from 表名 where 列名1=’“ & 字段 & “’ ORDER BY 字段1 DESC“ ’对查询结果进行降序排列Sql = “select * from 表名 where 列名1=’“ & 字段 & “’ ORDER BY 字段1 DESC, ORDER BY 字段2 DESC“ ’对查询结果进行多维降序排列（速度奇慢，不推荐使用）3、Recordset集合的常用属性方法==============================rs.BOF ’是否游标在最上边rs.EOF ’是否游标在最下边rs.RecordCount ’记录集的行数（如果使用像前类型的游标，可能返回不准确）rs.AddNew ’新建一行记录rs.Update ’保存当前行被修改的记录rs.Delete ’删除当前行rs.Close ’关闭记录集4、Fields集合的一些属性的解释=============================’以下为简写，正常情况需要rs.Fileds.。。。但是Fields属于Recordset的一个默认集合，因此可以省略rs() ’括号内可以是列名也可以是列的序号例如：rs(“姓名“)、rs(3) 都是是可以的rs(3).Name ’返回列名rs(3).Type ’返回列的类型rs(3).Value ’返回当前行的值rs.Fields.Count ’返回列数
vb动态连接SQL数据库的代码
在模块中定义public servernamepublic datanamepublic cn as adodb.connection------public sub conn(byval serveranme,byval dataname) set cn as new adodb.connection cn.open “driver={sql server};server=“ & servername & “;“ & “uid=sa;pwd=;database=“ & dataname“-----end sub大概就这样子
VB如何用纯代码连接SQL数据库
VB连接SQL模块。直接拿去用吧。 Public conn As New ADODB.Connection Public rs As New ADODB.Recordset Public addFlag As Boolean Public Function OpenCn(ByVal Cip As String) As Boolean Dim mag As String On Error GoTo strerrmag Set conn = New ADODB.Connection conn.ConnectionTimeout = 25 conn.Provider = “sqloledb“ conn.Properties(“data source“).Value = Cip ’服务器的名字 conn.Properties(“initial catalog“).Value = “zqoa“ ’库名 ’conn.Properties(“integrated security“).Value = “SSPI“ ’登陆类型 conn.Properties(“user id“).Value = “sa“ conn.Properties(“password“).Value = “sa“ conn.Open OpenCn = True addFlag = True Exit Function strerrmag: mag = “Data can’t connect“ Call MsgBox(mag, vbOKOnly, “Error:Data connect“) addFlag = False Exit Function End Function Public Sub cloCn() On Error Resume Next If conn.State 《》 adStateClosed Then conn.Close Set conn = Nothing End Sub Public Function openRs(ByVal strsql As String) As Boolean ’连接数据库记录集 Dim mag As String Dim rpy As Boolean On Error GoTo strerrmag Set rs = New ADODB.Recordset If addFlag = False Then rpy = True With rs .ActiveConnection = conn .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strsql End With addFlag = True openRs = True End ’Exit Function strerrmag: mag = “data not connect“ Call MsgBox(mag, vbOKOnly, “error:connect“) openRs = False End ’Exit Function End Function Public Sub cloRs() On Error Resume Next If rs.State 《》 adStateClosed Then rs.Clone Set rs = Nothing End Sub
如何用VB实现连接SQL数据库
首先在工程中引用ado然后在代码中连接Set cnn = New ADODB.Connectioncnn = “Driver={SQL Server};Server=数据库主机IP地址;Database=你要连接的数据库名;Uid=数据库用户名;Pwd=连接密码“cnn.Open然后根据你的需求写sql语句取数即可.
vb连接SQL数据库，要代码
给你一个示例代码吧Private Sub cmdOK_Click() Static nErr As Integer Dim bErr As Boolean Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSql As String If txtUser.Text = ““ Or txtPwd.Text = ““ Then MsgBox “用户或密码不能为空!“, vbCritical, “错误“ bErr = True Else Set conn = OpenConnForSqlServer(“127.0.0.1\SQLEXPRESS“, “xsfh“, ““) strSql = “select * from users where name = ’“ & txtUser.Text & “’ and password=’“ & txtPwd.Text & “’“ Set rs = OpenRecordset(strSql, conn) If rs.EOF Then MsgBox “错误的用户名或密码!“, vbCritical, “错误“ bErr = True Else Unload Me frmMain.Show End If End If If bErr Then nErr = nErr + 1 If nErr = 3 Then Unload Me Else txtUser.Text = ““ txtPwd.Text = ““ txtUser.SetFocus End If End IfEnd SubPublic Function OpenConnForSqlServer(ByVal ServerName As String, ByVal UserId As String, ByVal PassWord As String, Optional ByVal DateBaseName As String = ““) As ADODB.Connection Dim AdoConn As New ADODB.Connection Dim strConn As String With AdoConn strConn = “Provider=SQLOLEDB.1;Persist Security Info=True;User ID=“ & UserId & “;Password=“ & PassWord & “;Data Source=“ & ServerName If DateBaseName 《》 ““ Then strConn = strConn & “;database=“ & DateBaseName .ConnectionString = strConn .Open End With Set OpenConnForSqlServer = AdoConnEnd FunctionPublic Function OpenConnForSqlServerByWin(ByVal ServerName As String, Optional ByVal DateBaseName As String = ““) As ADODB.Connection Dim AdoConn As New ADODB.Connection Dim strConn As String With AdoConn strSql = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=“ & ServerName If DateBaseName 《》 ““ Then strConn = strConn & “;Initial Catalog=“ & DateBaseName .ConnectionString = strConn .Open End With Set OpenConnForSqlServerByWin = AdoConnEnd FunctionPublic Function OpenRecordset(ByVal strSql As String, ByVal AdoConn As ADODB.Connection) As ADODB.Recordset Dim rs As New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenDynamic .Open strSql, AdoConn, , , adCmdText End With Set OpenRecordset = rsEnd FunctionPublic Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODB.Connection) With AdoConn .BeginTrans .Execute tranSql .CommitTrans End WithEnd Function
怎样在vb中访问sql数据库代码是什么
OnErrorGoToerrDimcnAsNewADODB.Connection’有密码的连接：’cn.ConnectionString=“Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=登陆用户名;Password=登录密码;InitialCatalog=数据库名;DataSource=服务器别名“’无密码的连接：cn.ConnectionString=“Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=数据库名;DataSource=服务器别名“cn.CursorLocation=adUseClient’设置客户端游标cn.Open
VB怎么连接MSSql数据库
要连接SQL数据库有两种方法用ADODC或ADO。方法一: （ADODC)首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB)。之后在表单设置ADODC控件。然后Form_Load()输入以下代码：Private Sub Form_Load()ADODC1.ConnectionString = “Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名“ ADODC1.CommandType = adCmdTextADODC1.RecordSource = “select * from 表格名称“ADODC1.RefreshEnd Sub方法二: (ADO)首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library。注意以下两段须写在程式最上面（Gerenal一般）中。Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim SQL As String然后在Form_Load()输入以下代码：Private Sub Form_Load()cn.ConnectionString = “Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名“ cn.OpenIf rs.State = adStateOpen Then rs.Closers.CursorLocation = adUseClientSQL = “select * from 表格名“rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimisticEnd Sub
vb和sql数据库连接的代码
提前申明，转自别人的博客，供参考！希望可以帮到你，助人为乐！ 第一步，在ModConString模块中定义一系列变量’定义一个属性过程反映连接字符串Public Property Get conString() As VariantconString = “data source=.;initial catalog=Sims_four;user End Property’定义一个提供者反映数据库类型Public Property Get conProvide() As VariantconProvide = “sqloledb“End Property第二步，建立一个类OpenRs.clsOption ExplicitPrivate cnSIMS As ADODB.Connection ’声明一个连接Private rsSims As ADODB.Recordset ’声明一个连接记录集Public rs1 As ADODB.Recordset ’声明一个连接到所需表的记录集Public rs2 As ADODB.RecordsetPublic rst As ADODB.RecordsetPrivate Data As Object’---------------------------------------------------------’ 在类初始化时建立连接’---------------------------------------------------------Private Sub Class_Initialize() On Error GoTo DbnotOpen Set cnSIMS = New ADODB.Connection With cnSIMS .Provider = conProvide .ConnectionString = conString .ConnectionTimeout = 10 .Open Set rst = New ADODB.Recordset End With Exit SubDbnotOpen: If Err = -2147467259 Then Set cnSIMS = Nothing MsgBox “连接后台数据库失败！“ & vbCrLf & vbCrLf & “请检查配置是否完好,数据库Sims_four是否存在?“, vbOKOnly + vbInformation, “学生信息管理系统“ End End IfEnd Sub’---------------------------------------------------------’data是一个指向ADO记录集的对象的引用’用于设置class的数据源内容’---------------------------------------------------------Private Sub Class_GetDataMember(DataMember As String, Data As Object) Set Data = rsSimsEnd Sub’-------------------------------------------------------’建立一个可以打开记录集的函数，需要是必须把表名传给函数’-------------------------------------------------------Public Function rsDK(Table As String) Set rsSims = New ADODB.Recordset With rsSims .Source = Table .ActiveConnection = cnSIMS .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open , , , , adCmdTable End WithEnd Function’-------------------------------------------------------’建立一个可以打开记录集(动态游标)的函数’需要把SQL语句传递给函数’-------------------------------------------------------Public Function rsDK1(sql As String) Set rs1 = New ADODB.Recordset With rs1 .Source = sql .ActiveConnection = cnSIMS .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open , , , , adCmdText End WithEnd Function’-------------------------------------------------------’建立一个可以打开记录集(静态游标)的函数’需要把SQL语句传递给函数’-------------------------------------------------------Public Function rsDK2(sql As String) Set rs2 = New ADODB.Recordset With rs2 .Source = sql .ActiveConnection = cnSIMS .CursorType = adOpenStatic .LockType = adLockOptimistic .Open , , , , adCmdText End WithEnd Function’-------------------------------------------------------’类终止时,释放一切可能占据的资源’-------------------------------------------------------Private Sub Class_Terminate() Set cnSIMS = Nothing Set rs1 = Nothing Set rs2 = Nothing Set rsSims = Nothing Set rst = NothingEnd Sub第三步，在窗体中使用这个类Option ExplicitDim myModiStudent As OpenRs ’声明连接数据库的类Private Sub Form_Load()Set myModiStudent = New OpenRsmyModiStudent.rsDK1 “SELECT * FROM student_info“ ’打开表，红字是表名If Not myModiStudent.rs1.EOF Then Set StudentGrid.DataSource = myModiStudent.rs1 ’这里用到了MSHFlexGrid 控件 End IfEnd Sub
VB连接SQL
问题补充：“我想知道相对地址连接~~是SQL移到的机子上不装SQL那怎么办？？”1、SQL数据库连接必须是服务器，不用地址，因为在安装SQLServer2000后，你的数据库地址已经确定；2、在一般情况下不安装是不可以的，对于Access数据库现在的操作系统有其驱动，而没有SQL的，除非使用网络，例如局域网。SQLSERVER2000数据库代码比较简单，无非数据库连接语句不同，其他和Access数据库没有大的区别。如果“程序要移动到其他机子上”，移动到的机子上必须同样安装SQLSERVER2000数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同，如果有数据库密码，必须保持一致。下面是SQL数据库连接代码，请参考：PublicconnAsNewADODB.Connectionconn.ConnectionString=“driver={SQLServer};server=服务器名称;uid=sa;pwd=密码;database=数据库名称“conn.Open
VB如何连接SQL数据库，模块代码怎么改，如下：
.ConnectionString = “data source=MYSQL;initial catalog=SuperMarket;user id=sa;password=;database=SuperMarket;“这句中的 password= 后要加上你的数据库的sa的密码。源程序中 sa 没密码是绝对不行的。另外，你的数据库名 是否叫 SuperMarket？若不是则改过来。一般说来，你应该另外建立一个用户，不要直接使用 sa 来访问数据库。
