Visual Basic

himanshu p taunk wrote:

how can i read a serial number while running setup and validate it in vs.net 2005 ?

try

Adapter1.update(ds,"Table")

Catch ex.Exception

messagebox.show("make an appropriate update button")
end try

inc = 0<br />
        con = New OleDbConnection(conString)<br />
        con.Open()<br />
<br />
        sql = "SELECT * FROM tblContacts"<br />
        da = New OleDb.OleDbDataAdapter(sql, con)<br />
<br />
        ds = New DataSet<br />
        da.Fill(ds, "AddressBook")<br />
<br />
        MaxRows = ds.Tables("AddressBook").Rows.Count<br />
<br />
        txtFirstName.Text = ds.Tables("AddressBook").Rows(0).Item(1)<br />
        txtSurname.Text = ds.Tables("AddressBook").Rows(0).Item(2)<br />
<br />
        sql = "SELECT * From Attendance"<br />
        da = New OleDbDataAdapter(sql, con)<br />
<br />
        dt = New DataTable<br />
        da.Fill(dt)<br />
<br />
        dg1.DataSource = dt<br />
<br />
        con.Close()

Dim cb As New OleDb.OleDbCommandBuilder(da)<br />
<br />
        ds.Tables("AddressBook").Rows(inc).Item(1) = txtFirstName.Text<br />
        ds.Tables("AddressBook").Rows(inc).Item(2) = txtSurname.Text<br />
<br />
        da.Update(ds, "AddressBook")<br />
<br />
        MsgBox("Data updated") 

|alzaabi20xx wrote
Missing the DataColumn 'DDate' in the DataTable 'AddressBook' for the SourceColumn 'DDate'.

sql = "SELECT * FROM tblContacts" 'No Problem
da = New OleDb.OleDbDataAdapter(sql, con) 'No Problem

ds = New DataSet 'No Problem
da.Fill(ds, "AddressBook")' Problem

-------------              ---------------
tblContacts:                 Attendance
-------------              ---------------
ID (PK)    "Text"           EmpID "Text"
FirstName  "Text"           DDate "Date/Time"
SurName    "Text"

|alzaabi20xx wrote:
ok then i made my Database using MS Access and my tables order as following:


----------------------------------------------------
tblContacts:                  Attendance
----------------------------------------------------
ID (PK)    "Text"           EmpID "Text
FirstName  "Text"           DDate "Date/Time
SurName    "Text"

-----------------------------------------
Customer                Products
============         +++++++++++++
CustomerID(PK)        Product_ID(PK) 
CustomerName          Product_Name
Product_ID(FK)        Product_Descreption

' Open a database connection.
Dim strConnection As String = _
   "Data Source=localhost;Initial Catalog=Northwind;" _
   & "Integrated Security=True"
Dim cn As SqlConnection = New SqlConnection(strConnection)
cn.Open(  )
 
' Set up a data adapter object.
Dim strSql As String = "SELECT * FROM Customers" _
   & " WHERE City = 'Buenos Aires' AND Country = 'Argentina'"
Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)
 
' Load a data set.
Dim ds As DataSet = New DataSet(  )
da.Fill(ds, "Customers")
 
' Set up a new data adapter object.
strSql = "SELECT Orders.*" _
   & " FROM Customers, Orders" _
   & " WHERE (Customers.CustomerID = Orders.CustomerID)" _
   & "    AND (Customers.City = 'Buenos Aires')" _
   & "    AND (Customers.Country = 'Argentina')"
da = New SqlDataAdapter(strSql, cn)
 
' Load the data set.
da.Fill(ds, "Orders")
 
' Close the database connection.
cn.Close(  )
 
' Create a relation.
ds.Relations.Add("CustomerOrders", _
   ds.Tables("Customers").Columns("CustomerID"), _
   ds.Tables("Orders").Columns("CustomerID"))

Private Sub cmdfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfirst.Click
       'Move to the First Record
       Try
           Me.BindingContext(DataSet11, "Property").Position = 0


       Catch  ex As OleDb.OleDbException
           MessageBox.Show("Canot Navigate, Because the is no Connection to the Server", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try
   End Sub

Private Sub cmdprevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprevious.Click

    ''' This will obviously point to the Previous record of the Dataset
    Try
        Me.BindingContext(DataSet11, "table").Position -= 1

    Catch ex  ex As OleDb.OleDbException
        MessageBox.Show("Canot Navigate, Because the is no Connection to the Server", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Try

End Sub

'''Display Next Record
''' This will obviously point to the Next record of the Dataset
Try
    Me.BindingContext(DataSet11, "property").Position += 1


Catch ex As OleDb.OleDbExceptionn
    MessageBox.Show(ex.Message)


End Try

'move to the last Record
        Try
            With Me.BindingContext(DataSet11, "property")
                .Position = .Count - 1
            End With
        Catch ex As OleDb.OleDbExceptionn
            MessageBox.Show(ex.message)

        End Try

SqlDataAdapter1.Update(DataSet11, "Property")

Me.BindingContext(DataSet11, "property").Position += 1