تقييم الموضوع :
  • 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 
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد دالة مثيلة لـــ nvl من الاوراكل الى الاكسس بسام محمدغانم 4 149 04-04-20, 10:31 PM
آخر رد: بسام محمدغانم
  مثل دالة في اوراكل Decode بسام محمدغانم 3 245 04-04-20, 06:41 PM
آخر رد: ابو ليلى
  كيف اتجنب يتكرر خطاء الحذف في الداتا جريد فيو هذه دالة حذف بيانات من الداتاجريد فيو م بسام محمدغانم 2 285 12-12-19, 07:49 AM
آخر رد: بسام محمدغانم
  [VB.NET] كيفية انشاء دالة شبهة بدالة اكسل وهي AND khairallah 0 202 04-12-19, 03:29 PM
آخر رد: khairallah
  دالة لاضهار السنة الدراسية Adil Idabdellah 8 634 26-12-18, 10:37 PM
آخر رد: abdousoft
  [سؤال] كتابة دالة Simo1991 4 687 30-10-18, 09:05 PM
آخر رد: elgokr
  [VB.NET] دالة أقوى من SendKeys لمحاكاة الكيبورد sniperjawadino 2 607 23-10-18, 06:22 PM
آخر رد: sniperjawadino
  دالة الجمع في كريستل ريبورت makky 7 1,182 30-08-18, 07:01 PM
آخر رد: elgokr
  دالة تفقيط المبلغ الى حروف السيد الجوهري 3 849 09-08-18, 03:10 AM
آخر رد: elgokr
  دالة الوقت now alfauori 4 689 16-07-18, 12:07 AM
آخر رد: elgokr

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


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