دوستان عزيز كسي يك Sample Code نوشته شده باASP.net با زبان VB.net و ارتباط با ديتابيس SQL Server 2000 سراغ داره كه بصورت ساده Delete, Insert, Add ,... رو داشته باشه 8)
Dim sqlStr1 As String
sqlStr1 = "Select * From Users"
Dim DS1 As New Data.DataSet()
Dim Conn1 As New SqlClient.SqlConnection("ConnectionString")
Dim DA1 As New Data.SqlClient.SqlDataAdapter(sqlStr1, Conn1)
DA1.Fill(DS1, "UsersInfo")
Conn1.Close()
Label1.Text = DS1.Tables("UsersInfo").Rows(0).Item("UserName")
این 1 نمونه ... 1ی دیگه:که جهت پیدا کردن User خواصی است:
کد:
Dim sqlStr1 As String
sqlStr1 = "Select * From Users Where UserName='Omidak' And Password='myPassword'"
Dim DS1 As New Data.DataSet()
Dim Conn1 As New SqlClient.SqlConnection("ConnectionString")
Dim DA1 As New Data.SqlClient.SqlDataAdapter(sqlStr1, Conn1)
DA1.Fill(DS1, "UsersInfo")
Conn1.Close()
Label1.Text = DS1.Tables("UsersInfo").Rows(0).Item("UserName")
و همجنین برایه اضافه کردن :
کد:
Dim sqlStr1 As String
sqlStr1 = "INSERT INTO Users(UserName, Password) Values('Omidak', 'myPassword')"
Dim DS1 As New Data.DataSet()
Dim Conn1 As New SqlClient.SqlConnection("ConnectionString")
Dim DA1 As New Data.SqlClient.SqlDataAdapter(sqlStr1, Conn1)
DA1.Fill(DS1, "UsersAdded")
Conn1.Close()
و همچنین برایه ایجاد تغیرات:
کد:
Dim sqlStr1 As String
sqlStr1 = "Update Users Set UserName='Omidak2', Password='Password2' Where UserName='Omidak'"
Dim DS1 As New Data.DataSet()
Dim Conn1 As New SqlClient.SqlConnection("ConnectionString")
Dim DA1 As New Data.SqlClient.SqlDataAdapter(sqlStr1, Conn1)
DA1.Fill(DS1, "UsersUpDate")
Conn1.Close()
و همچنین جهت حذف 1 داده :
کد:
Dim sqlStr1 As String
sqlStr1 = "Delete From Users Where UserName='Omidak'"
Dim DS1 As New Data.DataSet()
Dim Conn1 As New SqlClient.SqlConnection("ConnectionString")
Dim DA1 As New Data.SqlClient.SqlDataAdapter(sqlStr1, Conn1)
DA1.Fill(DS1, "UsersDeleted")
Conn1.Close()
:
ثبت نام در صرافی والکس (wallex) به همراه راهنمای احراز هویت