将ADODB Conection转换为SQL连接 [英] Convert ADODB Conection to SQL Connection
本文介绍了将ADODB Conection转换为SQL连接的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
亲爱的先生,
我使用ms访问数据库并通过ADODB和Jet Oledb连接,但是
我想改变这个到Sql连接下面是打开我使用过的数据库的功能,请告诉我,我是通过sql server数据库更改它连接的: -
Dear Sir,
I have used ms access database and connect through ADODB and Jet Oledb, But
I want to change this to Sql Connection Below is the function to open database i used, please tell me were i change it to connect through sql server database :-
Public Function OpenDatabase() As Boolean
Dim Find As Boolean = False
Dim PenPath As String = ""
For i As Byte = 70 To 82
If System.IO.Directory.Exists(Microsoft.VisualBasic.Chr(i) & ":\JyothiIMS") = True Then
Microsoft.VisualBasic.FileSystem.ChDrive(Microsoft.VisualBasic.Chr(i) & ":\")
Microsoft.VisualBasic.FileSystem.ChDir(Microsoft.VisualBasic.Chr(i) & ":\JyothiIMS")
PenPath = Microsoft.VisualBasic.Chr(i) & ":\JyothiIMS"
Find = True
Exit For
End If
Next
If Find = True Then
APPApplicationPath = Microsoft.VisualBasic.FileSystem.CurDir
DefaultBackupPath = Microsoft.VisualBasic.FileSystem.CurDir + "\Backup"
APPDataBasePath = Microsoft.VisualBasic.FileSystem.CurDir + "\inventory.mdb"
APPPhotoPath = Microsoft.VisualBasic.FileSystem.CurDir + "\images\"
Else
APPApplicationPath = Microsoft.VisualBasic.FileSystem.CurDir
DefaultBackupPath = Microsoft.VisualBasic.FileSystem.CurDir + "\Backup"
APPDataBasePath = Microsoft.VisualBasic.FileSystem.CurDir + "\inventory.mdb"
APPPhotoPath = Microsoft.VisualBasic.FileSystem.CurDir + "\images\"
End If
Try
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & APPDataBasePath & ";Jet OLEDB:Database Password=prakash"
DbfConnString = Conn.ConnectionString
Conn.Open()
OpenDatabase = True
Dim dbf As New ADODB.Recordset
dbf.Open("select * from company", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
If dbf.RecordCount > 0 Then
dbf.Close()
Else
dbf.Close()
Company.ShowDialog()
dbf.Open("select * from company", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
If dbf.RecordCount > 0 Then
dbf.Close()
Else
dbf.Close()
Conn = Nothing
ISDataBaseOpen = False
End If
End If
dbf.Open("Select * from Company", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
dbf.MoveFirst()
CompanyDetails.Name = dbf.Fields("CmpName").Value.ToString
CompanyDetails.Title = dbf.Fields("CmpTitle").Value.ToString
CompanyDetails.Address = dbf.Fields("CmpAddress").Value.ToString
CompanyDetails.City = dbf.Fields("cmpCity").Value.ToString
CompanyDetails.State = dbf.Fields("CmpState").Value.ToString
CompanyDetails.Country = dbf.Fields("CmpCountry").Value.ToString
CompanyDetails.phone1 = dbf.Fields("CmpContact1").Value.ToString
CompanyDetails.phone2 = dbf.Fields("CmpContact2").Value.ToString
CompanyDetails.Tin = dbf.Fields("CmpTinNo").Value.ToString
CompanyDetails.SalesTax = dbf.Fields("CmpStNo").Value.ToString
CompanyDetails.Version = dbf.Fields("CmpVersion").Value
CompanyDetails.DbName = dbf.Fields("CmpDBName").Value.ToString
CompanyDetails.TrailCount = dbf.Fields("TrailCount").Value
CompanyDetails.Istrail = dbf.Fields("IsTrail").Value
CompanyDetails.ImageFolder = dbf.Fields("ImageFolder").Value.ToString
CompanyDetails.DbServer = dbf.Fields("DatabaseServer").Value.ToString
CompanyDetails.DbPassword = dbf.Fields("Databasepwd").Value.ToString
CompanyDetails.CurrentDate = dbf.Fields("CreateDate").Value
CompanyDetails.PeriodFrom = dbf.Fields("PeriodFrom").Value
CompanyDetails.PeriodTo = dbf.Fields("PeriodTo").Value
CompanyDetails.IsFixedDate = dbf.Fields("IsFixedDate").Value
CompanyDetails.CompanyType = dbf.Fields("CompanyType").Value
CompanyDetails.IsAutobackup = dbf.Fields("AutoBackup").Value
CompanyDetails.SoftwareKey = dbf.Fields("softwarekey").Value.ToString
CompanyDetails.ProductKey = dbf.Fields("ProID").Value.ToString
CompanyDetails.BackupPath = dbf.Fields("BackupPath").Value.ToString
CompanyDetails.CPUID = dbf.Fields("cpucode").Value.ToString
CompanyDetails.HDDID = dbf.Fields("hddcode").Value.ToString
CompanyDetails.UpadateCode = dbf.Fields("tobeupdate").Value
ApplicationStoredPath = dbf.Fields("ApplicationPath").Value.ToString
'MsgBox(dbf.Fields("CompanyType").Value)softwarekey
If CompanyDetails.CompanyType = 0 Then
CompanyType = CompanyTypeStruct.Simple
ElseIf CompanyDetails.CompanyType = 1 Then
CompanyType = CompanyTypeStruct.Simplewithvat
ElseIf CompanyDetails.CompanyType = 2 Then
CompanyType = CompanyTypeStruct.advance
ElseIf CompanyDetails.CompanyType = 3 Then
CompanyType = CompanyTypeStruct.advancewithvat
ElseIf CompanyDetails.CompanyType = 4 Then
CompanyType = CompanyTypeStruct.AdvanceSimpleWithoutColor
ElseIf CompanyDetails.CompanyType = 5 Then
CompanyType = CompanyTypeStruct.AdvanceWithoutColor
ElseIf CompanyDetails.CompanyType = 6 Then
CompanyType = CompanyTypeStruct.AdvancedWithADDDiscountLVH
End If
DefaultBackupPath = CompanyDetails.BackupPath
dbf.Close()
If PasswordEntry.ShowDialog() = DialogResult.Cancel Then
OpenDatabase = False
ISDataBaseOpen = False
Else
ISDataBaseOpen = True
End If
Catch ex As Exception
OpenDatabase = False
Try
Conn.Close()
Catch ex3 As Exception
End Try
Conn = Nothing
ISDataBaseOpen = False
MsgBox(ex.Message)
End Try
End Function
Rgds,
Indranil
Rgds,
Indranil
推荐答案
看看 http://www.connectionstrings.com/ [ ^ ]并选择要连接的SQL版本。
之后你应该更改行
Conn.ConnectionString =Provider = Microsoft.Jet.OLEDB.4.0; Data Source =& APPDataBasePath& ; Jet OLEDB:数据库密码= prakash
满足您的需求。
BR,
VG
Take a look at http://www.connectionstrings.com/[^] and select which SQL version you want to connect.
After that you should change the line
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & APPDataBasePath & ";Jet OLEDB:Database Password=prakash"
To what you need.
BR,
VG
这篇关于将ADODB Conection转换为SQL连接的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文