当前位置: 主页 > 数据库

vbnet连接sql2008数据库-sql server 2008连接本地服务器

发布时间:2023-02-08 11:22   浏览次数:次   作者:佚名

导入系统数据

将 sqlConnection1 暗淡为 SqlClient.SqlConnection

Dim strConnect As String="数据源=服务器名;初始目录=数据库名;用户id=sa;密码=;"

sqlConnection1 = 新的 SqlClient。  SqlConnection(strConnect)

尝试

sqlConnection1.open '打开数据库

消息框(“确定”)

sqlConnection1.close '关闭连接并释放资源

catch ex 作为异常

msgBox(例如消息)

结束尝试

###################或者

公共 CNN 作为新的 ADODB.Connection

公共 GclsReaderGroup 作为新的 GzReader

公共 GstrMealCardReaderTabOption 作为字符串

子主()

将 strCnn 调暗为字符串

strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DasIcCard;Data Source=(Local)"

CNN.ConnectionString = strCnn

CNN.CursorLocation = adUseClient

美国有线电视新闻网

frmMain。 展示

结束子

'获取卡片ID

公共函数 GetCardID(ByVal PressworkID 作为字符串,ByVal EmpName 作为字符串)只要

出错时转到 Myerror

将 strSQL 调暗为字符串

将 rs 调暗为新的 ADODB.Recordset

昏暗的卡 ID 只要

strSQL = "select cCard.CardID From cCard inner join cEmployee on cCard.CardID=cEmployee.MainCardID"

strSQL = strSQL & " where cCard.PressWorkID='" & Trim(PressworkID) & "' and cEmployee.EmployeeName='" & Trim(EmpName) & "'"

设置 rs = CNN。 执行(strSQL)

CardID = rs.Fields(0).value

GetCardID = 卡片ID

设置 rs = 无

退出函数

我的错误:

MsgBox 错误。 描述

获取卡片 ID = 0

继续下一步

结束功能

记得给分哦!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !