vbnet连接sql2008数据库-sql server 2008连接本地服务器
导入系统数据
将 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
继续下一步
结束功能
记得给分哦! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !