vb.net connection
'Its VB.net Code
Imports System.Data.SqlClient
Module ComModul
#Region "Var"
Public dbCon = New ADODB.Connection
Public dbRS = New ADODB.Recordset
Public strProvider As String = "Microsoft.ACE.OLEDB.12.0" 'or an other provider
Public strDBPath As String = "path"
#End Region
'Öffnet eine Verbindung zu einer Datenbank
'open connection to Database. You can use it for an coonection command too
#Region "DB Connection"
Public Function DB_Connect(ByRef dbCon As ADODB.Connection, Optional ByVal strExe As String = "") As Boolean
Try
If strExe = "" Then
dbCon.Provider = strProvider
dbCon.Open(strDBPath)
Else
dbCon.Execute(strExe)
End If
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
Return False
End Function
#End Region
'Öffnet ein Recordset (Nur mit bestehner verbindung zu einer datenquelle aufrufen)
'Open Recordset, need an SQL Statmend like "strSQL as String = "SELECT * FROM TABLE"".Dont forget to close the Recordset
'and set it to Nothing -----> dbRS.close --------> dbRS = Nothing
#Region "Recordset"
Public Function Open_RS(ByVal strSQL As String, ByRef dbCon As ADODB.Connection, ByRef dbRS As ADODB.Recordset) As Boolean
Try
If strSQL = "" Then
Throw New AggregateException("Sql")
End If
dbRS = New ADODB.Recordset
dbRS.Open(strSQL, dbCon)
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Return False
End Function
#End Region
End Module