دى اكواد المشروع كله
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data99.mdb")
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim cmdinsert As New OleDbCommand("insert into table1 (ID1, name1, numbeer1,ID2, name2, number2,ID3, name3, number3) values ('" & ha1.Text & "','" & na1.Text & "','" & ph1.Text & "','" & ha2.Text & "','" & na2.Text & "','" & ph2.Text & "','" & ha3.Text & "','" & na3.Text & "','" & ph3.Text & "')", conn)
cmdinsert.ExecuteNonQuery()
MsgBox("تم حفظ البيانات بنجاح")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ha1.Text = ""
na1.Text = ""
ph1.Text = ""
ha2.Text = ""
na2.Text = ""
ph2.Text = ""
ha3.Text = ""
na3.Text = ""
ph3.Text = ""
If (Trim(TextBox16.Text) = "") Then
MsgBox(" Fill Data In TextBox")
Exit Sub
End If
Dim CmdSelect As New OleDbCommand
CmdSelect.Connection = conn
CmdSelect.CommandType = CommandType.Text
CmdSelect.CommandText = "Select * from table1 where [ID1]=" & TextBox16.Text & ""
Dim dt As New DataTable
dt.Clear()
dt.Load(CmdSelect.ExecuteReader())
Using dt
If (dt.Rows.Count <> 0) Then
ha1.Text = dt.Rows(0)(0).ToString
na1.Text = dt.Rows(0)(1).ToString
ph1.Text = dt.Rows(0)(2).ToString
End If
End Using
CmdSelect.CommandText = "Select * from table1 where [ID2]=" & TextBox16.Text & ""
dt.Clear()
dt.Load(CmdSelect.ExecuteReader())
Using dt
If (dt.Rows.Count <> 0) Then
ha2.Text = dt.Rows(0)(3).ToString
na2.Text = dt.Rows(0)(4).ToString
ph2.Text = dt.Rows(0)(5).ToString
End If
End Using
CmdSelect.CommandText = "Select * from table1 where [ID3]=" & TextBox16.Text & ""
dt.Clear()
dt.Load(CmdSelect.ExecuteReader())
Using dt
If (dt.Rows.Count <> 0) Then
ha3.Text = dt.Rows(0)(6).ToString
na3.Text = dt.Rows(0)(7).ToString
ph3.Text = dt.Rows(0)(8).ToString
End If
End Using
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn.Open()
End Sub
End Class
اتمنى اكود وفقت
