Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Private dbConProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\_data\Projects.NET\MusikJukebox\MusikJukebox\Database.mdb" Private DbConn As Data.OleDb.OleDbConnection
Private Sub bind_datagrid(ByVal sQuery As String, ByVal datagrid As System.Windows.Forms.DataGridView) Try Dim mycon As New System.Data.OleDb.OleDbConnection() Dim myadpt As New System.Data.OleDb.OleDbDataAdapter() Dim myset As New DataSet() Dim mycmd As New System.Data.OleDb.OleDbCommand() mycon.ConnectionString = dbConProvider mycon.Open() mycmd.CommandText = sQuery mycmd.Connection = mycon myadpt.SelectCommand = (mycmd) myadpt.Fill(myset, "datasetname") datagrid.DataSource = myset datagrid.DataMember = "datasetname" mycon.Close()
Catch err As Exception MsgBox(err.Message) End Try End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.