Proses menyambung ASP.NET (web development) kepada database MS SQL Server agakmengelirukan kerana banyak objek yang perlu di guna dan terdapat pelbagai teknik.
Berikut di sertakan 2 contoh:-
1. Paparkan data
2. Tambah data
Interface saya adalah seperti berikut
Koding bagi dua button di atas seperti berikut:-
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click 'berjaya pamir data
Dim connetionString As String
Dim connection As SqlConnection
Dim adapter As SqlDataAdapter
Dim ds As New DataSet ' yang ni kena ada Imports System.Data
Dim i As Integer
connetionString = "Server =4MEI-PC\MEMO; Database =dbmemo; Trusted_Connection =True;"
connection = New SqlConnection(connetionString)
Try
connection.Open()
adapter = New SqlDataAdapter("Select * from users", connection)
adapter.Fill(ds)
connection.Close()
For i = 0 To ds.Tables(0).Rows.Count - 1
Response.Write(ds.Tables(0).Rows(i).Item(1) & " ")
Response.Write(ds.Tables(0).Rows(i).Item(2) & "
")
Next
Catch ex As Exception
Response.Write(ex.ToString)
End Try
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click'berjaya TAMBAH DATA
Dim connetionString As String
Dim connection As SqlConnection
Dim adapter As New SqlDataAdapter
Dim sql As String
connetionString = "Server =4MEI-PC\MEMO; Database =dbmemo; Trusted_Connection =True;"
connection = New SqlConnection(connetionString)
sql = "insert into users (uname,pass) values('ISA','4455')"
Try
connection.Open()
adapter.InsertCommand = New SqlCommand(sql, connection)
adapter.InsertCommand.ExecuteNonQuery()
MsgBox("Row inserted !! ")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Berikut adalah maklumat MS SQL server dan Table yang di guna
Koding bagi dua button di atas seperti berikut:-
