السلام عليكم و رحمة الله و بركاته
لدي بعض الاكواد عند تنفيذها يعطيني خطأ
اولا كود الاضافة:
view source
print?
1 Dim sqladd As String = "insert into Asnaf_Gr (Num,G_No, G_Name, G_Merg, G_Main, G_Nots) values ('" & Num.Text & "','" & G_No.Text & "','" & G_Name.Text & G_Merg.Text & "','" & G_Main.Text & "','" & G_Nots.Text & "')"
2 Dim Cmd As New SqlCommand(sqladd, Conn)
3 Conn.Open()
4 Cmd.ExecuteNonQuery()
5 Conn.Close()
6 DataSet1.Clear()
7 DataAdapter1.Fill(DataSet1, "Asnaf_Gr")
8 bc.MoveLast()
رسالة الخطأ التي تظهر عند تنفيذ الكود السابق هي:
There are more columns in the insert statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the insert statement.
ثانيا:الشاشة الرئيسية للبرنامج
يوجد بها شريط قوائم وعند الضغط على اي امر يقوم بتعبئة البيانات و فتح النافذة عند اول سجل
لكن الذي اريده هو فتح النافذة على سجل جديد.
ثالثا:شجرة الحسابات
بينات الجدول الخاص بشجرة الحسابات هو
NUM رقم
ACNO نص-رقم الحساب
ACNAME نص-اسم الحساب
ACC نص-مفتاح رئيسي(رقم الحساب+اسم الحساب)
ACMAIN نص-الحساب الرئيسي التي ينتمي اليها الحسابات
view source
print?
01 Public Class HesabDlil
02 Dim con As String = "Data Source=.;Initial Catalog=FoxDb001;Integrated Security=True"
03 Dim SQLStr As String = "select * FROM Acc00"
04 Dim Conn As New SqlConnection(con)
05 Dim DataSet1 As New DataSet
06
07 Private Sub HesabDlil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
08 Conn.Open()
09 Dim AccTableAdapter As New SqlDataAdapter(SQLStr, Conn)
10 AccTableAdapter.Fill(DataSet1, "Acc00")
11 Conn.Close()
12 createTree()
13 End Sub
14
15 Private Sub createTree()
16 TreeView1.Beginupdate()
17 TreeView1.Nodes.Clear()
18
19 Dim MainHeader As New TreeNode("دليل الحسابات")
20
21 MainHeader.Tag = 0
22
23 TreeView1.Nodes.Add(MainHeader)
24
25 AddSubNode(MainHeader)
26
27 TreeView1.Endupdate()
28 TreeView1.ExpandAll()
29 TreeView1.select()
30 End Sub
31
32 Private Sub AddSubNode(ByVal Node As TreeNode)
33
34 Dim dv1 As DataView = DataSet1.Tables("Acc00").DefaultView
35
36 dv1.RowFilter = "AcMain =" & CType(Node.Tag, Integer)
37
38 For Each drLine As DataRowView In dv1
39
40 Dim SubNode As New TreeNode(drLine("Acc").ToString())
41
42 SubNode.Tag = drLine("Num").ToString
43
44 Node.Nodes.Add(SubNode)
45
46 If Not SubNode.Tag Is String.Empty Then
47
48 AddSubNode(SubNode)
49
50 End If
51 Next
52
53 End Sub
54 End Class
لكن للاسف النموذج لا يعرض اي بيانات