[VB_Coder]

السلام عليكم

- تستطيع تجزئة النص الموجود في التكست ، بشرط أن يكون كتابة الإسم ثم العنوان ثم رقم الهاتف متتالية وبالترتيب دائما تفصلها مسافه ، عندها تستطيع إستخدام كود التجزئة بهذا الشكل :

كود :

Dim Name,Adress,Tel As String
Dim AllData() As String

AllData() = Split(Trim(Text1.Text)," ")
Name = Trim(AllData(0))
Adress = Trim(AllData(1))
Tel = Trim(AllData(2))

rs.Open "select * from tb1 where name like '" & Name & "' and address like '" & Adress & "'and phone like '" & Tel & "' "، db،2,1

- تحياتي .