|
Imports System.Data Imports System.Data.OleDb Imports ADODB ******************************************************* Public Rs As ADODB.Recordset = New ADODB.Recordset Public DbConn As ADODB.Connection = New ADODB.Connection ******************************************************* Public Sub ApriDb() Dim ConnectionString as string = "Provider=Microsoft.jet.oledb.4.0;data source=" & My.Application.Info.DirectoryPath & "\DataBase\Album.mdb" System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor DbConn.CursorLocation = CursorLocationEnum.adUseServer DbConn.ConnectionString = ConnectionString DbConn.Open() ******************************************************* Rs.Open("Delete * FROM mySort;", DbConn, 3, 3) DBStruttura = New ADODB.Connection DBStruttura.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0" DBStruttura.Open(My.Application.Info.DirectoryPath & "\DataBase\Struttura.mdb") RsColori = New ADODB.Recordset RsColori.Open("SELECT ColoriHTML.* FROM ColoriHTML ORDER BY ColoriHTML.NomeColor;", DBStruttura, 3, 3) |