Visual Basic

Dim da As New SqlClient.SqlDataAdapter
            da.SelectCommand = New SqlClient.SqlCommand("SELECT * FROM UNTIS", MAIN.data.Conn)

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class Example
    Dim SQLcon As New SqlConnection
    Dim pDS As New DataSet

    Sub MakeConnect()
        SQLcon.ConnectionString = "Data Source=192.168.10.24\BDMS;" & _
                                        "Initial Catalog=FLATPAN;" & _
                                        "User ID=flatpan;" & _
                                        "Password=*********"
        Try
            SQLcon.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Sub Load_Table()
        Dim SQLstr As String = "SELECT * FROM Orders"
        Try
            'open connection
            If SQLcon.State = ConnectionState.Closed Then
                SQLcon.Open()
            End If
            Dim cmd As SqlCommand = New SqlCommand(SQLstr, SQLcon)
            Dim da As New SqlDataAdapter(SQLstr, SQLcon)
            da.Fill(pDS, "ORDERS")
            
            'Added this to see if it helped
            da.FillSchema(pDS, SchemaType.Mapped)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            'close connection
            SQLcon.Close()
        End Try
    End Sub

    Sub Add_New_Record()
        Try
            Dim dt As DataTable = pDS.Tables("Orders")
            Dim dr As DataRow = dt.NewRow
            dr.Item("OrderStatus") = "A"
            dr.Item("SamsungRef") = "B"
            dr.Item("ProductCode") = "C"
            dr.Item("ProductSerialNo") = "D"
            dr.Item("ProductionNo") = "E"
            dt.Rows.Add(dr)

            'Update new row to database
            Dim qry As String = "SELECT * FROM Orders"
            If SQLcon.State = ConnectionState.Closed Then SQLcon.Open()
            Dim da1 As New SqlClient.SqlDataAdapter
            da1.SelectCommand = New SqlClient.SqlCommand(qry, MAIN.data.Conn)
            Dim cb1 As SqlClient.SqlCommandBuilder = New System.Data.SqlClient.SqlCommandBuilder(da1)
            da1.Update(pDS, "Orders")

            'Had to add this to register change in dataset
            pDS.Tables.Remove("Orders")
            'Reatach datatable to dataset. Refresh primary keys
            MAIN.data.Load_Table("SELECT * FROM Orders", "Orders")

        Catch ex As Exception
            MessageBox.Show("Add_New_Record, " & ex.Message)
        End Try
    End Sub
End Class

Dim openedConnectionString As Boolean = False
If Not connectionString.State = ConnectionState.Open Then
    connectionString.Open()
    openedConnectionString = True
End If

Dim insertionDS As New DataSet
Dim newDataAdapter As OleDbDataAdapter

Dim sql As String = "SELECT * FROM [" & ActiveProject.Identifier & " Populations] ORDER BY ID;"
newDataAdapter = New OleDb.OleDbDataAdapter(sql, connectionString)

'Create mapping
newDataAdapter.TableMappings.Add("Table", "Populations")
With newDataAdapter.TableMappings(0).ColumnMappings
    .Add("ID", "ID")
    .Add("Name", "Name")
    .Add("Char ID", "Char ID")
    .Add("Stratum", "Stratum")
    .Add("PopLevel", "PopLevel")
End With

'Make sure field names are bracketed
Dim cb As New OleDbCommandBuilder(newDataAdapter)
cb.QuotePrefix = " ["
cb.QuoteSuffix = "] "

'Add Table
newDataAdapter.Fill(insertionDS)

'Get last ID number to increment
Dim lastIndex As Integer = 0

With insertionDS.Tables("Populations")
    If .Rows.Count <> 0 Then
        lastIndex = .Rows(.Rows.Count - 1).Item("ID")
    End If

    'Insert record
    Dim newRow As DataRow = .Rows.Add

    newRow.BeginEdit()
    newRow.Item("ID") = lastIndex + 1
    newRow.Item("Name") = Population
    newRow.Item("Char ID") = ""
    newRow.Item("Stratum") = Stratum
    newRow.Item("PopLevel") = Level
    newRow.EndEdit()
End With

'Save changes
newDataAdapter.InsertCommand = cb.GetInsertCommand
newDataAdapter.Update(insertionDS)

newDataAdapter.Dispose()

'If we opened the connectionstring, then close it
If openedConnectionString Then
    connectionString.Close()
End If

jayachandra.c wrote:

here just i want to know how to get the Internet connection Status in VB6 whether it is working/not working.

I are Troll

Golden Jing wrote:

I have issue with the exhadecimal.
I want to convert it to text

Console.WriteLine(Convert.ToInt32("FF", 16))

I are Troll

Golden Jing wrote:

But now my problem now is that the hexadecimal is so long.

I are Troll

Cosby wrote:

Hi guys, how can i know if two PC are in the same lan??

I are Troll