السلام عليكم
ما هي كود بحث في اون لاين داتا بيس و اضافة معلومات و تحديث معلومات في داتا بيس
Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Public Class Form1
Dim mySqlConnection As MySqlConnection
Dim myadapter As New MySqlDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
mySqlConnection = New MySqlConnection
mySqlConnection.ConnectionString = "Server=XXXXXXXX;port=3306; user id=XXXXXXXX; password=XXXXXXX; database=XXXXX"
mySqlConnection.Open()
Dim myData As MySqlDataReader
Dim sqlquary = " SELECT * From xdr "
Dim command As New MySqlCommand
command.Connection = mySqlConnection
command.CommandText = sqlquary
myData = command.ExecuteReader
myData.Read()
TextBox1.Text = myData.GetValue(0)
TextBox2.Text = myData.GetValue(1)
Dim myadapter As New MySqlDataAdapter
End Sub
End Class
ارجو مساعدة