求大神能帮我把vb6.0代玛换变vb.net内用吗
这是一个访问数据查询，增加，修改，删除
OptionExplicit
PublicServerIPAsString,DbNameAsString,UserIdAsString,UserPwdAsString
PublicPortNumberAsInteger
'****************************************************
'*连接数据库
'****************************************************
PrivateFunctionConnectDB(ByRefcnAsADODB.Connection)AsInteger
OnErrorGoToerrhandle
DimstrConnectionAsString
DimsportAsString
IfTrim(ServerIP)=""Then
ConnectDB=-1
ExitFunction
EndIf
IfTrim(DbName)=""Then
ConnectDB=-2
ExitFunction
EndIf
IfTrim(UserId)=""Then
ConnectDB=-3
ExitFunction
EndIf
IfPortNumber=0OrNotIsNumeric(PortNumber)Then
sport=""
Else
sport=","&CStr(PortNumber)
EndIf
strConnection="provider=sqloledb;datasource="&ServerIP&sport&";UserID="&UserId&";pwd="&UserPwd&";InitialCatalog="&DbName
cn.ConnectionString=strConnection
cn.Open
ConnectDB=1
ExitFunction
errhandle:
If(cn.State=adStateOpen)Thencn.Close
Setcn=Nothing
ConnectDB=-4
EndFunction
'****************************************************
'*断开数据库
'****************************************************
PrivateSubDisConnectDB(ByRefcnAsADODB.Connection)
OnErrorResumeNext
cn.Close
Setcn=Nothing
EndSub
'*****************************************************
'*由卡密号删除
'*****************************************************
PublicFunctionDelKmInfo(ByValKmCodeAsString)AsInteger
DimconnAsADODB.Connection
DimcmdAsADODB.Command
DimsSqlAsString
sSql="deletefromdbo.kminfowheredbo.kminfo.kmcode='"+Replace(Trim(KmCode),"'","''")&"'"
Setconn=NewADODB.Connection
DimiRetConDbAsInteger
iRetConDb=ConnectDB(conn)
IfiRetConDb0Then
conn.RollbackTrans
DelKmInfo=0
Else
conn.CommitTrans
DelKmInfo=1
EndIf
Setcmd=Nothing
DisConnectDBconn
EndFunction
'*****************************************************
'*由时间删除
'*****************************************************
PublicFunctionDelKmInfoByTime(ByValkmtimeAsString,ByValsOPAsString)AsInteger
DimconnAsADODB.Connection
DimcmdAsADODB.Command
DimsSqlAsString
IfNot(sOP=">"OrsOP="="OrsOP=">="OrsOP="")Then
DelKmInfoByTime=-10
ExitFunction
EndIf
If(NotIsDate(kmtime))Then
DelKmInfoByTime=-11
ExitFunction
EndIf
sSql="deletefromdbo.kminfowheredbo.kminfo.kmtime"&sOP&"'"&kmtime&"'anddbo.kminfo.kmtime'2000-01-0100:00:00'"
Setconn=NewADODB.Connection
DimiRetConDbAsInteger
iRetConDb=ConnectDB(conn)
IfiRetConDb0Then
conn.RollbackTrans
DelKmInfoByTime=0
Else
conn.CommitTrans
DelKmInfoByTime=1
EndIf
Setcmd=Nothing
DisConnectDBconn
EndFunction
'*****************************************************
'*新增卡密号信息
'*****************************************************
PublicFunctionNewKmInfo(ByValKmCodeAsString,ByValkmcountAsInteger,ByValkmtimeAsString,ByValislockAsInteger,ByValsoftwareverAsInteger,ByValupgrademsgAsString,ByValsoftwaretypeAsString,ByValhardinfoAsString,ByValisbindAsInteger,ByValrmk1AsString,ByValrmk2AsString,ByValrmk3AsString,ByValrmk4AsString,ByValrmk5AsString)AsInteger
DimconnAsADODB.Connection
DimcmdAsADODB.Command
DimrsAsADODB.Recordset
DimsSqlAsString
Setconn=NewADODB.Connection
DimiRetConDbAsInteger
iRetConDb=ConnectDB(conn)
IfiRetConDb0Then
conn.RollbackTrans
NewKmInfo=0
Else
conn.CommitTrans
NewKmInfo=1
EndIf
Setcmd=Nothing
DisConnectDBconn
EndFunction
分 -->
|
