转换VB6到VB2010代码

Question

你好，请帮我把下面的代码(VB6)转换成VB 2010，

Dim strconn As String
Dim condtl() As String
Open "c:databaseSettingdbsettings.dat" For Input As #1
Line Input #1, strconn
Close #1
strconn = Replace(strconn, """", "")
condtl = Split(strconn, ",")
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;data source=" & condtl(0) & ";initial catalog=" & condtl(1) & ";user id=" & condtl(2) & ";password=" & condtl(3)
cn.Open

---

Answer 1

与其为您转换代码，不如给您一些提示:

打开文件并读取以下行:

https://msdn.microsoft.com/en-us/library/db5x7c0d%28v=vs.110%29.aspxhttps://msdn.microsoft.com/en-us/library/ms143368%28v=vs.110%29.aspx(如果文件小，更简单)

对于字符串替换，您可以使用字符串函数'Replace':

https://msdn.microsoft.com/en-us/library/system.string.replace%28v=vs.110%29.aspx

对于类似的数据库操作(即打开ADODB.Connection)，您可以在这里学习:

https://support.microsoft.com/en-us/kb/308047