不多说,直接看代码
'连接数据库
'定义数据链接对象 ,保存连接数据库信息
Set cnn = CreateObject("ADODB.Connection")
'定义记录集对象,保存数据表
Set rs = CreateObject("ADODB.Recordset")
'定义数据库链接字符串
‘ Data Source:数据库服务器IP地址
‘ Initial Catalog:数据库名称
‘ User ID:数据库登录用户名
‘ Password:数据库登录密码
strcn = "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=AIS20140120174606;User ID=sa;Password=123;Persist Security Info=False;"
cnn.Open strcn
’读取sql server数据
sql_str = "select FItemID from t_ICItem where FNumber='" & FNumber & "'"
rs.Open sql_str, cnn
FItemID = rs(0)
FNumber = rs(1)
‘注意rs.Open和rs.Close要成对出现
rs.Close
cnn.Close
'程序结束或抛出异常时注意置cnn、rs为空
Set cnn = Nothing
Set rs = Nothing