最近,我在使用ADO库的VB.Net编写的旧应用程序中遇到了一个问题。
这是代码:
Rsfg_misurazioni_ci.let_Source("fg_misurazioni_ci")
Rsfg_misurazioni_ci.LockType = ADODB.LockTypeEnum.adLockOptimistic
Rsfg_misurazioni_ci.Open(, ConnectionString)
Rsfg_misurazioni_ci.MoveFirst()
Rsfg_misurazioni_ci.Find("Codice = '" & txtCodice.Text & "'", , ADODB.SearchDirectionEnum.adSearchForward, 1)
If Rsfg_misurazioni_ci.EOF Then
Rsfg_misurazioni_ci.Close()
Else
Rsfg_misurazioni_ci.Fields("Esito").Value = "OK "
Rsfg_misurazioni_ci.Update()
Rsfg_misurazioni_ci.Close()
End If
这是我使用的连接字符串:
ConnectionString = "Provider=Microsoft OLE DB Provider for SQL Server;Password=pass;Persist Security Info=True;User ID=is;Initial Catalog=Varese_Scheda;Data Source=SERVER-PC\SQLEXPRESS"
我在Update
方法中遇到错误。 Visual Studio说错误是因为
无法找到对象fg_misurazione_ci
(或类似的东西,错误是用意大利语写的,所以我不知道它是用英语写的。)
let_source
是正确的,因为DataSet不会在任何地方使用,而且我真的不知道为什么会出现这个错误。
当我创建数据集时,我使用它:
Dim Rsfg_misurazioni_ci as new ADODB.Recorset
这是我用于每个其他数据集的完全相同的行。
我还尝试创建另一个空白的VB项目,复制粘贴上面的代码,并再次出现完全相同的错误。