السلام عليكم ممكن شرح الاكواد وتحويل الاكواد الى داتابيز اكسس

Private con As New SqlClient.SqlConnection 

Private command As New SqlClient.SqlCommand 

Private adaptar As New SqlClient.SqlDataAdapter 

Private Shared connect As String = "Data Source=CHANGE-PC;Initial Catalog=store;Integrated Security=True"

Public Sub save(ByVal sql As String)

con.Open()

command = New SqlClient.SqlCommand(sql, con) 

adaptar.InsertCommand = command 

adaptar.InsertCommand.ExecuteNonQuery()

con.Close() 

End Sub

Public Function show(ByVal sql As String)

 con.Open() command.CommandText = sql 

 adaptar.SelectCommand = command 

 command.Connection = con 

 Dim ds As New DataSet 

 adaptar.Fill(ds) 

 con.Close() 

 Return ds 

 End Function

Public Function FindByLike1(ByVal likeString As String) As ArrayList 

 Dim myDataSet As New DataSet 

 Dim myCommand As New SqlClient.SqlCommand

 Dim myAdapter As New SqlClient.SqlDataAdapter 

 Dim all As New ArrayList

 Dim myConn As New SqlClient.SqlConnection 

 Dim con1 As New connection()

 myConn.ConnectionString = con1.Connect '"Data Source=LG-NBPC-PC\HADAD;Initial Catalog=pharmacye;Integrated Security=True"

 myConn.Open() 

 myCommand.CommandText = "select * from account where (typ = 'Cash') ORDER BY id" 

 myAdapter.SelectCommand = myCommand 

 myCommand.Connection = myConn 

 myCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@likeString", System.Data.SqlDbType.VarChar, 60, "likeString")) 

 myCommand.Parameters("@likeString").Value = likeString + "%" 

 myAdapter.Fill(myDataSet, "account") 

 Dim row As DataRow 

 For Each row In myDataSet.Tables("account").Rows 

 Dim s As New addaccount 

 s.id = Val(row("id").ToString()) 

 s.Name = row("Name").ToString() 

 s.typ = row("typ").ToString() 

 s.num = Val(row("num").ToString()) 

 all.Add(s)

 Next 

 Return all 

 End Function