VB连接本地SQL数据库,如何自动获取计算机名 详细的高分追加。
部分程序如下:PublicmyCnnAsNewADODB.ConnectionPublicmyRsAsNewADODB.RecordsetPrivateSubComman...
部分程序如下:
Public myCnn As New ADODB.Connection
Public myRs As New ADODB.Recordset
Private Sub Command1_Click()
myRs.AddNew
myRs("日期") = DTPicker1.Value
myRs("甲班矿量") = Val(Text1(0).Text)
myRs("乙班矿量") = Val(Text1(1).Text)
myRs("甲班品位") = Val(Text1(2).Text)
myRs("乙班品位") = Val(Text1(3).Text)
myRs.Update
End Sub
Private Sub Form_Load()
Dim myStr As String
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source=小李飞刀;Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
myCnn.ConnectionString = myStr
myCnn.Open
myRs.Open "select * from 表2009", myCnn, adOpenDynamic, adLockOptimistic
End Sub
上面的程序已通过,没问题。连接字符串是用新建udl文件的方法生成的。其中的“小李飞刀”是本地计算机名。
当将这个程序及本地数据库移植到另一台计算机上时(数据库路径也相同),需要将“小李飞刀”修改成新的计算机名。
如何实现自动获取计算机名?注意是连接本地数据库。
还有以下问题,如能详述,会追加分数。
在网上搜了,连接字符串花样百出,请问:
连接字符串一共有哪些项,哪些项可以省略,各项可以取什么常数、什么值。若取常数,请详述各常数的含义。
若能继续回答以下问题,会再次追加分数。
以上程序若要访问远程数据库,要改哪些参数
本人分多,决不食言。不设悬赏是怕没人答。 展开
Public myCnn As New ADODB.Connection
Public myRs As New ADODB.Recordset
Private Sub Command1_Click()
myRs.AddNew
myRs("日期") = DTPicker1.Value
myRs("甲班矿量") = Val(Text1(0).Text)
myRs("乙班矿量") = Val(Text1(1).Text)
myRs("甲班品位") = Val(Text1(2).Text)
myRs("乙班品位") = Val(Text1(3).Text)
myRs.Update
End Sub
Private Sub Form_Load()
Dim myStr As String
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source=小李飞刀;Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
myCnn.ConnectionString = myStr
myCnn.Open
myRs.Open "select * from 表2009", myCnn, adOpenDynamic, adLockOptimistic
End Sub
上面的程序已通过,没问题。连接字符串是用新建udl文件的方法生成的。其中的“小李飞刀”是本地计算机名。
当将这个程序及本地数据库移植到另一台计算机上时(数据库路径也相同),需要将“小李飞刀”修改成新的计算机名。
如何实现自动获取计算机名?注意是连接本地数据库。
还有以下问题,如能详述,会追加分数。
在网上搜了,连接字符串花样百出,请问:
连接字符串一共有哪些项,哪些项可以省略,各项可以取什么常数、什么值。若取常数,请详述各常数的含义。
若能继续回答以下问题,会再次追加分数。
以上程序若要访问远程数据库,要改哪些参数
本人分多,决不食言。不设悬赏是怕没人答。 展开
2个回答
展开全部
首先定义一个公共变量a
public a As Object
a = CreateObject("Wscript.Network")
然后将
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source=小李飞刀;Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
改成
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source="+a.ComputerName+";Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
public a As Object
a = CreateObject("Wscript.Network")
然后将
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source=小李飞刀;Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
改成
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source="+a.ComputerName+";Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询