您所在位置：主题：Data Source=ComputerName这表达正确吗？
xuexi2002
[专家分：0] 发布于 2005-06-01 11:28:00
请帮忙看这段代码哪有错：如何改正？
Option Explicit
Private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load()
Dim ComputerName As String, i As Long
i = 255
ComputerName = String(i, 0)
GetComputerName ComputerName, i
ComputerName = Left(ComputerName, i)
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=aaa;Data Source=ComputerName"
Adodc1.RecordSource = "select * from abc"
Adodc1.Refresh
End Sub
Option Explicit
Private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load()
Dim ComputerName As String, i As Long
i = 255
ComputerName = String(i, 0)
GetComputerName ComputerName, i
ComputerName = Left(ComputerName, i)
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=aaa;Data Source=ComputerName"
Adodc1.RecordSource = "select * from abc"
Adodc1.Refresh
End Sub