ممكن مساعدة ماني عارفة ايش الغلط في هذا الشي
Dim
con
As
String
=
"provider= sqloledb.1;integrated security=sspi;persist security info =false;initial catalog=fonebook;data source=ABS-3D3CB4E6276\SQLEXPRESS"
Dim
n
As
New
System.Data.OleDb.OleDbConnection(con)
Dim
com
As
String
=
"select * from ppl where name=('"
& ComboBox1.Text &
"')"
Dim
m
As
New
System.Data.OleDb.OleDbCommand(com, n)
Dim
j
As
System.Data.OleDb.OleDbDataReader
Try
n.Open()
j = m.ExecuteReader
MsgBox(
"the data are "
)
Catch
ex
As
Exception
MsgBox(ex.Message)
Do
While
j.Read
ListBox1.Items.Add(j.Item(0))
Loop
End
Try
n.Close()
End
Sub
واذا ممكن تعطوني طريقة تانية اذا فيه
:D merci