Skip to content

Instantly share code, notes, and snippets.

@facebookegypt
Created July 18, 2016 16:35
Show Gist options
  • Select an option

  • Save facebookegypt/f56ab8b4b777a5726d58451aa16891a6 to your computer and use it in GitHub Desktop.

Select an option

Save facebookegypt/f56ab8b4b777a5726d58451aa16891a6 to your computer and use it in GitHub Desktop.
vb2010 database connection
Imports System
Imports System.Data
Imports CrystalDecisions
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.OleDb
Module Module1
Public CN As New OleDb.OleDbConnection
Public CMD As New OleDb.OleDbCommand
Public DataR As OleDb.OleDbDataReader
'To display into datagrid Purpose
Public dataS As New DataSet
Public dataAd As New OleDb.OleDbDataAdapter
Public SqlStr, SqlStr1, DBPath, DBStatus, SearchBox As String
Public Pprint As String
End Module
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment