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



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


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