VB6到VB.Net - 试图找出数据库读取和更新

问题描述

好的，之前问过但是没有得到我正在寻找的东西soooooo

你们中的任何一位vb.net专家（有一些vb6经验）都有几分钟时间将这个VB6代码转换为VB.net？看看如何在.net中完成这件事会对我有所帮助。



我有很多需要像下面的代码一样扫描桌面并制作对数据库的修正，用户错误等等。



从我读过的内容来看，你需要一个子/函数来读取所有记录而另一个用于读取所有记录。更新 - 并且每个都需要专门为每个表编码



下面的代码只是一起抛出以获得重点（IE我知道的GUID函数）存在于.net - 其中在vb6中我有一个生成代码的函数）



非常感谢提前！

 Global DB As New ADODB.Connection 
 Global RS As New Recordset 
 Sub Main 
 OpenDBSQLServer，UserName，Password，数据库，DB 
 OpenRecordset rsXRef，从XRef中选择*，DB 
'---------这是有问题的点
随rsXRef 
而不是.EOF '遍历所有记录
如果Len（RTrim（！GUID））< 5然后'如果需要编辑... 
！GUID = GUID'更新
结束如果
。更新'并更新记录
 .MoveNext'移至下一条记录并重复... 
 Wend 
 End with 
'--------- 
 End Sub 
函数GUID 
 GUID = SomeRandomGUID
结束函数
函数OpenDB（SQLServer，用户，密码，数据库，dbConnection为ADODB.Connection）As Boolean 
 dbConnection.ConnectionString =Provider ='SQLOLEDB.1'; User id ='&用户& ';密码='&密码& ';坚持安全信息='真';数据源='& SQLServer& ';初始目录='&数据库& ';连接超时= 2; 
 dbConnection.Open 
 OpenDB = True 
结束函数
公共函数OpenRecordset（RS As Recordset，SQL As String，Conn As ADODB.Connection）As Boolean 
 OpenRecordset =真
随RS 
 On Error Resume Next 
如果.State = adStateOpen则
。关闭
结束如果
 .CursorType = adOpenDynamic 
。 LockType = adLockOptimistic 
 .CursorLocation = adUseClient 
。打开SQL，Conn 
以
结束退出函数
结束函数

解决方案

这篇关于VB6到VB.Net - 试图找出数据库读取和更新的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！