تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
دالة واكوادsql
#1
السلام عليكم...
اريد دالة وكود الاتصال بالsql من نفس مجلد البرنامج اتصال غير مباشر
مع اكواد الاضافة.والتعديل والحذف.شكرا
الرد
تم الشكر بواسطة:
#2
تفضل :

PHP كود :
'------------------------Select With DataSet Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename=|DataDirectory|\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim ds As New DataSet
 da
.Fill(ds,"TableName")
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Select With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------INSERT With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "INSERT INTO Castomer (ID,Castomer_Name,Castomer_Tel,Castomer_Mobaile,Castomer_Note ) VALUES ('" Txt_ID.Text  "','" Txt_Castomer_Name.Text  "','" Txt_Castomer_Tel.Text  "','" Txt_Castomer_Mobaile.Text  "','" Txt_Castomer_Note.Text "')"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Update With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "UPDATE Castomer SET Castomer_Name='" Txt_Castomer_Name.Text "', Castomer_Tel='" Txt_Castomer_Tel.Text "', Castomer_Mobaile='" Txt_Castomer_Mobaile.Text "', Castomer_Note='" Txt_Castomer_Note.Text "' Where ID='" Txt_ID.Text "'"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Delete With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Delete From  Castomer  Where ID = '"Txt_ID.Text "'"
 
Dim TxtID As String =Txt_ID.Text
If MsgBox("هل أنت متأكد من حذف السجل المحدد " Txt_ID.TextMsgBoxStyle.YesNo MsgBoxStyle.Question MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل") = MsgBoxResult.Yes Then
 Dim cn 
As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
MsgBox("تم حذف السجل المحدد "Txt_ID.Text &" بنجاح "MsgBoxStyle.Information MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل")
 
End If 
الرد
#3
(26-03-19, 12:12 PM)asemshahen5 كتب : تفضل :

PHP كود :
'------------------------Select With DataSet Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename=|DataDirectory|\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim ds As New DataSet
 da
.Fill(ds,"TableName")
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Select With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Select * From TableName"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------INSERT With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "INSERT INTO Castomer (ID,Castomer_Name,Castomer_Tel,Castomer_Mobaile,Castomer_Note ) VALUES ('" Txt_ID.Text  "','" Txt_Castomer_Name.Text  "','" Txt_Castomer_Tel.Text  "','" Txt_Castomer_Mobaile.Text  "','" Txt_Castomer_Note.Text "')"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Update With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "UPDATE Castomer SET Castomer_Name='" Txt_Castomer_Name.Text "', Castomer_Tel='" Txt_Castomer_Tel.Text "', Castomer_Mobaile='" Txt_Castomer_Mobaile.Text "', Castomer_Note='" Txt_Castomer_Note.Text "' Where ID='" Txt_ID.Text "'"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
'------------------------Delete With DataTable Vb Code---------------------------'
 
Dim StrSQL as string "Delete From  Castomer  Where ID = '"Txt_ID.Text "'"
 
Dim TxtID As String =Txt_ID.Text
If MsgBox("هل أنت متأكد من حذف السجل المحدد " Txt_ID.TextMsgBoxStyle.YesNo MsgBoxStyle.Question MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل") = MsgBoxResult.Yes Then
 Dim cn 
As New SqlConnection("Server=.\SQLExpress;AttachDbFilename="Application.StartupPath &"\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
 If 
cn.State ConnectionState.Open Then cn.Close()
 
MsgBox("تم حذف السجل المحدد "Txt_ID.Text &" بنجاح "MsgBoxStyle.Information MsgBoxStyle.MsgBoxRight MsgBoxStyle.MsgBoxRtlReading"حذف سجل")
 
End If 

اولا اشكرك جدا وسؤال هل ينفع استخدم اكواد الاكسس
في البحث او الاستعلام ام ماذا شكرا.
الرد
تم الشكر بواسطة:
#4
ماذا تعني بأكواد أكسيس .
الرد
تم الشكر بواسطة: اسامه الهرماوي
#5
(26-03-19, 01:59 PM)asemshahen5 كتب : ماذا تعني بأكواد أكسيس .

-اعني اخي الاكواد المستخدمة مثل البحث وكود الاقتراح في الاكسس
الرد
تم الشكر بواسطة:
#6
ضع كود مبسط عما تعني إذا كنت تقصد استعلام البحث نفس الاستعلام 

PHP كود :
Dim StrSQL as string "Select * From TableName Where ColomnName='" Txt_ColumnName.Text "'"
 
Dim cn As New SqlConnection("Server=.\SQLExpress;AttachDbFilename=|DataDirectory|\MyDataFile.mdf;Database=dbname;Trusted_Connection=Yes;")
 If 
cn.State ConnectionState.Closed Then cn.Open()
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim ds As New DataSet
 da
.Fill(ds,"TableName")
 If 
cn.State ConnectionState.Open Then cn.Close()
 
Txt_FullName.Text=Dt.rows(0)("FullName").ToString 
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دالة لاضهار السنة الدراسية Adil Idabdellah 8 257 26-12-18, 10:37 PM
آخر رد: abdousoft
  [سؤال] كتابة دالة Simo1991 4 271 30-10-18, 09:05 PM
آخر رد: elgokr
  [VB.NET] دالة أقوى من SendKeys لمحاكاة الكيبورد sniperjawadino 2 296 23-10-18, 06:22 PM
آخر رد: sniperjawadino
  دالة الجمع في كريستل ريبورت makky 7 485 30-08-18, 07:01 PM
آخر رد: elgokr
  دالة تفقيط المبلغ الى حروف السيد الجوهري 3 471 09-08-18, 03:10 AM
آخر رد: elgokr
  دالة الوقت now alfauori 4 379 16-07-18, 12:07 AM
آخر رد: elgokr
  عملة دالة لاستخراج اسم المحافظة atefkhalf2004 19 789 24-02-18, 11:13 PM
آخر رد: atefkhalf2004
  [سؤال] رغم استخدام دالة المعالج الخلفي إلا أنه ما زال يوجد تهنيج عند تنفيذ الكود السندبااد 6 681 25-10-17, 05:29 PM
آخر رد: السندبااد
  دالة التفقيط مجرب lkaam 1 663 09-06-17, 03:08 AM
آخر رد: alma2
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 1,682 17-09-16, 12:38 AM
آخر رد: أبو عمر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم