No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
Dim conn As New SqlConnection(connstr1) Dim sql As String sql = "Select * from address1" 'Dim da As SqlDataAdapter Dim cmd As New SqlCommand(sql, conn) conn.Open() Dim ds As New DataSet() da = New SqlDataAdapter(sql, conn) da.Fill(ds, "Address1") maxrows = ds.Tables("Address1").Rows.Count inc = -1 conn.Close() 'If next_record <= maxrows - … |
|
Dim conn As New SqlConnection(connstr1) Dim sql As String sql = "Select * from address1" 'Dim da As SqlDataAdapter Dim cmd As New SqlCommand(sql, conn) conn.Open() Dim ds As New DataSet() da = New SqlDataAdapter(sql, conn) da.Fill(ds, "Address1") maxrows = ds.Tables("Address1").Rows.Count inc = -1 conn.Close() 'If next_record <= maxrows - … |