Visual Basic + SQL database

[ghost]

Please how will some deploy visual basic with SQL database in visual studio environment.

[WindowStations]

The VB.dll would have to be deployed with the application and registered with regasm.exe.

A quick example in VB.NET:

Imports System.Data.SqlClient

Public Class Form1
    Inherits System.Windows.Forms.Form
    'Create ADO.NET objects.
    Private myConn As SqlConnection
    Private myCmd As SqlCommand
    Private myReader As SqlDataReader
    Private results As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Create a Connection object.
        myConn = New SqlConnection("Initial Catalog=Northwind;" & "Data Source=localhost;Integrated Security=SSPI;")
        myCmd = myConn.CreateCommand 'Create a Command object.
        myCmd.CommandText = "SELECT FirstName, LastName FROM Employees"
        myConn.Open() 'Open the connection.
        myReader = myCmd.ExecuteReader()
        Do While myReader.Read() 'Concatenate the query result into a string.
            results = results & myReader.GetString(0) & vbTab & myReader.GetString(1) & vbLf
        Loop

        MsgBox(results)  'Display results.
        myReader.Close() 'Close the reader and the database connection.
        myConn.Close()
    End Sub

    
End Class

In VB6 with VB6Porter + VB6Namespaces:

Option Explicit
Private myConn As New vbctl.SqlConnection
Private myCmd As New vbctl.SqlCommand
Private myReader As New vbctl.SqlDataReader
Private results As String
Private Sub Form_Load()
   'Create a Connection object.
   myConn.New_CONNECTIONSTRING "Initial Catalog=Northwind;" & "Data Source=localhost;Integrated Security=SSPI;"
   Set myCmd = myConn.CreateCommand 'Create a Command object.
   myCmd.CommandText = "SELECT FirstName, LastName FROM Employees"
   myConn.Open 'Open the connection.
   Set myReader = myCmd.ExecuteReader
   Do While myReader.Read 'Concatenate the query result into a string.
      results = results & myReader.GetString(0) & vbTab & myReader.GetString(1) & vbLf
   Loop
   MsgBox results 'Display results.
   myReader.Close 'Close the reader and the database connection.
   myConn.Close
End Sub

[ghost]

Thanks but what if it is vb10 or VB 12

[WindowStations]

I may need to recompile separate VB.dll versions for each, but I might be able to compile it conditionally. If vb10 + has any new features they can be exposed by VB.dll/s. The current version is compiled with VS2008 team edition + Framework 3.5 for maximum compatibility. The last legacy version of VB is 2008.