VB6 HELP ME, Database

Mar 12, 2007
2,277
96
0
41
කඳුළු අතර
pahadili madi bun . .

machan
mama hadana exe eka thiyenne mage computer eke
namuth
eke database eka thiyenne mama kohehari host karala
ethakota database eke url eka wenne
eg: http://www.lalantha.com/database.mdb
mata ona coding thika

mage exe ekata liyanna
ara database eka connect karaganna kiyala
open database karanna

ethakota
mage exe eka umbage computer eke run kalath
database eka internet threw connect karagannava

mata ona e 2ka connect karana codeing eka

theruna madinam kiyapan.
 

Ranhiru

Member
Feb 2, 2007
6,438
42
0
Inside FIREFOX


dot net lavata athapatha gaganna puluvan
vb6 tikak dannava
kamak nehe
mata karana heti kiyaladeela
dot net verson ekath kiyapan machan
mata download karaganna

Visual Basic .NET 2008 thama machan use karanne

'first creating a Sql Connection ... put this in a module so it will be global
'Put any valid Sql Connection String.. Get Connection Strings from http://www.connectionstrings.com

Me thiyenne SQL Server walata...i think what you need for a connection string is
http://connectionstrings.com/access-2007


Code:
Public connection As New SqlConnection("Persist  Security Info=False;Data  Source="|DataDirectory|Database1.sdf")
Getting A set of data from a Sql Database

Code:
Dim dt As New DataTable()
Dim ds As New  DataSet
  
 Dim queryString As String = "SELECT * FROM  Country ORDER BY CCode"
Dim adapter As SqlCeDataAdapter = New  SqlCeDataAdapter(queryString, connection)
adapter.FillLoadOption =  LoadOption.OverwriteChanges

 adapter.Fill(ds, "Country")
  
 dt = ds.Tables("Country")
'Now DataTable dt contains all the rows from the table Country



Getting a Single Data from the Database

'This is a sample function written to get a Username when the User gives a UserID
'connection should be defined first in the module or somewhere :D


Code:
   Function  getUsername(ByVal UserID as Integer) As String
 
         Dim Username As String
  
 
        Try
 
        connection.Open()
  
         Dim Command As New  SqlCeCommand("SELECT Username FROM UserTable WHERE UserID=" & UserID,  connection)  
         Username=  Command.ExecuteScalar().ToString
  
          connection.Close()
  
         Return  Username

  
         Catch ex As  Exception
  
         End Try
 
 
     End Function
Adding Data to the Database

'This enters data in to a User Table

Code:
 Try
  
                  Dim stringAdd As String = "INSERT INTO UserTable (" & txtUserID.Text &  ",' " & txtUsername.Text & " ')"
  
                  MsgBox(stringAdd)
                  'MsgBox will display something like  "INSERT INTO UserTable (0001,'Pradeep ElaKiri') "
  
  
                  Dim obj As New SqlCommand(stringAdd, connection)
  
                  obj.Connection.Open()
                 obj.ExecuteNonQuery()
                 obj.Connection.Close()
  
                  obj.Dispose()
  
              Catch ex As Exception
 
                 MsgBox(ex.Message)
 End Try
Updating Data

Code:
    Dim  stringUPDATE As String = "UPDATE UserTable SET Username=' " &  txtNewUsername.Text & " '  WHERE UserID="  & txtUserID.Text 
         
          MsgBox(stringUPDATE)
         'MsgBox  should display something like "UPDATE UserTable SET Username='Naps' WHERE  UserID=1"
  
         Dim obj  As New SqlCommand(stringUPDATE, connection)
 
         
          Try
  
 
             obj.Connection.Open()
             obj.ExecuteNonQuery()
  
 
             
         Catch ex As Exception
 
             MsgBox(ex.Message)
             
  
         Finally
  
              obj.Connection.Close()
  
              obj.Dispose()
  
         End Try
 
Last edited:
Mar 12, 2007
2,277
96
0
41
කඳුළු අතර
Visual Basic .NET 2008 thama machan use karanne

'first creating a Sql Connection ... put this in a module so it will be global
'Put any valid Sql Connection String.. Get Connection Strings from http://www.connectionstrings.com

Me thiyenne SQL Server walata...i think what you need for a connection string is
http://connectionstrings.com/access-2007


Code:
Public connection As New SqlConnection("Persist  Security Info=False;Data  Source="|DataDirectory|Database1.sdf")
Getting A set of data from a Sql Database

Code:
Dim dt As New DataTable()
Dim ds As New  DataSet
  
 Dim queryString As String = "SELECT * FROM  Country ORDER BY CCode"
Dim adapter As SqlCeDataAdapter = New  SqlCeDataAdapter(queryString, connection)
adapter.FillLoadOption =  LoadOption.OverwriteChanges

 adapter.Fill(ds, "Country")
  
 dt = ds.Tables("Country")
'Now DataTable dt contains all the rows from the table Country



Getting a Single Data from the Database

'This is a sample function written to get a Username when the User gives a UserID
'connection should be defined first in the module or somewhere :D


Code:
   Function  getUsername(ByVal UserID as Integer) As String
 
         Dim Username As String
  
 
        Try
 
        connection.Open()
  
         Dim Command As New  SqlCeCommand("SELECT Username FROM UserTable WHERE UserID=" & UserID,  connection)  
         Username=  Command.ExecuteScalar().ToString
  
          connection.Close()
  
         Return  Username

  
         Catch ex As  Exception
  
         End Try
 
 
     End Function
Adding Data to the Database

'This enters data in to a User Table

Code:
 Try
  
                  Dim stringAdd As String = "INSERT INTO UserTable (" & txtUserID.Text &  ",' " & txtUsername.Text & " ')"
  
                  MsgBox(stringAdd)
                  'MsgBox will display something like  "INSERT INTO UserTable (0001,'Pradeep ElaKiri') "
  
  
                  Dim obj As New SqlCommand(stringAdd, connection)
  
                  obj.Connection.Open()
                 obj.ExecuteNonQuery()
                 obj.Connection.Close()
  
                  obj.Dispose()
  
              Catch ex As Exception
 
                 MsgBox(ex.Message)
 End Try
Updating Data

Code:
    Dim  stringUPDATE As String = "UPDATE UserTable SET Username=' " &  txtNewUsername.Text & " '  WHERE UserID="  & txtUserID.Text 
         
          MsgBox(stringUPDATE)
         'MsgBox  should display something like "UPDATE UserTable SET Username='Naps' WHERE  UserID=1"
  
         Dim obj  As New SqlCommand(stringUPDATE, connection)
 
         
          Try
  
 
             obj.Connection.Open()
             obj.ExecuteNonQuery()
  
 
             
         Catch ex As Exception
 
             MsgBox(ex.Message)
             
  
         Finally
  
              obj.Connection.Close()
  
              obj.Dispose()
  
         End Try

sdf file type eka mokakda?
mdb connect karanna puluvanda?
mdb danavanam 2007 vershon ekada ona?