تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الي كل من يجيد التعامل مع قواعد البيانات
#1
ما الخطا هنا



كود :
Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Form_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Informload(Me)
    End Sub
    Private Sub Form_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Resizeform(Me)
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Application.Exit()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Conn.Close()
        Sql = "add"
        Dim savein As New OleDb.OleDbCommand
        savein.CommandText = Sql

        savein.CommandType = CommandType.StoredProcedure
        savein.Connection = Conn
        Try
            Conn.Open()
            savein.Parameters.Add("@Nomber", OleDbType.Integer)
            savein.Parameters("@Nomber").Value = Trim(TextBox1.Text)

            savein.Parameters.Add("@Date_Joine", OleDbType.Date)
            savein.Parameters("@Date_Joine").Value = Trim(DateTimePicker1.Value)

            savein.Parameters.Add("@Name", OleDbType.VarChar, 50)
            savein.Parameters("@Name").Value = Trim(TextBox2.Text)

            savein.Parameters.Add("@Markz", OleDbType.VarChar, 20)
            savein.Parameters("@Markz").Value = ComboBox1.SelectedItem

            savein.Parameters.Add("@Adress", OleDbType.VarChar, 70)
            savein.Parameters("@Adress").Value = TextBox3.Text

            savein.Parameters.Add("@Job", OleDbType.VarChar, 30)
            savein.Parameters("@Job").Value = TextBox4.Text

            savein.Parameters.Add("@Takhsoss", OleDbType.VarChar, 30)
            savein.Parameters("@Takhsoss").Value = TextBox5.Text

            savein.Parameters.Add("@Date-berth", OleDbType.Date)
            savein.Parameters("@Date-berth").Value = Trim(DateTimePicker2.Value)

            savein.Parameters.Add("@Code", OleDbType.Integer)
            savein.Parameters("@Code").Value = TextBox6.Text

            savein.Parameters.Add("@Phone", OleDbType.Integer)
            savein.Parameters("@Phone").Value = TextBox7.Text

            savein.Parameters.Add("@Hezb_Dor", OleDbType.VarChar, 50)
            savein.Parameters("@Hezb_Dor").Value = TextBox8.Text

            savein.ExecuteNonQuery()
            Conn.Close()
            Conn.Dispose()
            Conn = Nothing
            MsgBox("A new hardware has been added successfully.Do you want to add software concerning this device.", MsgBoxStyle.OkCancel + MsgBoxStyle.Information, "Hardware Manager")
        Catch ex As Exception
            MsgBox(savein.CommandText)
        End Try
    End Sub
End Class
الباقي
كود :
Imports System.Data.OleDb
Module Module1
    Public Cmd As OleDbCommand
    Public cnnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
                Application.StartupPath & "\ELNour.mdb"
    Public Conn As New OleDbConnection(cnnString)
    Public Dr As OleDbDataReader
    Public Sql As String
    Public Ds As DataSet
    Public dt As DataTable
    Private Structure CtrlProportions
        Dim HeightProportions As Single
        Dim WidthProportions As Single
        Dim TopProportions As Single
        Dim LeftProportions As Single
        Dim FontProportions As Font
        Dim FontSizeScaleProportions As Single
    End Structure
    Private ProportionsArray() As CtrlProportions

    Private ctrl As New List(Of Control)

    Public Sub Informload(ByVal frm As Form)

        On Error Resume Next

        Application.DoEvents()

        ctrl = GetControls(frm)
        For i = 0 To ctrl.Count - 1
            If TypeOf (ctrl(i)) Is Form Then ctrl.Remove(ctrl(i))
        Next

        ReDim ProportionsArray(0 To ctrl.Count - 1)

        For I As Integer = 0 To ctrl.Count - 1
            With ProportionsArray(I)
                .HeightProportions = ctrl(I).Height / frm.Height
                .WidthProportions = ctrl(I).Width / frm.Width
                .TopProportions = ctrl(I).Top / frm.Height
                .LeftProportions = ctrl(I).Left / frm.Width
                .FontProportions = ctrl(I).Font
                .FontSizeScaleProportions = ctrl(I).Font.Size / frm.Height
            End With
        Next

    End Sub

    Private Function GetControls(ByVal Ctrl As Control) As List(Of Control)
        GetControls = New List(Of Control)
        GetControls.Add(Ctrl)
        For Each c As Control In Ctrl.Controls
            GetControls.AddRange(GetControls(c))
        Next
    End Function

    Public Sub Resizeform(ByVal frm As Form)

        On Error Resume Next

        For I As Integer = 0 To ctrl.Count - 1
            ctrl(I).Left = ProportionsArray(I).LeftProportions * frm.Width
            ctrl(I).Top = ProportionsArray(I).TopProportions * frm.Height
            ctrl(I).Width = ProportionsArray(I).WidthProportions * frm.Width
            ctrl(I).Height = ProportionsArray(I).HeightProportions * frm.Height
            ctrl(I).Font = New Font(ProportionsArray(I).FontProportions.FontFamily _
                                  , ProportionsArray(I).FontSizeScaleProportions * frm.Height _
                                  , ProportionsArray(I).FontProportions.Style)
        Next

    End Sub
End Module
الخطا عندي في جملة الاضافة وانا استخدم استعلامات اكسس 2003
وقاعدة البيانات مرفقة مع المثال ارجو الرد للاهمية
[ATTACH]1794[/ATTACH]


الملفات المرفقة
.rar   ELNour.rar (الحجم : 17.24 ك ب / التحميلات : 37)
Heart
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً

Heart
الرد }}}
تم الشكر بواسطة:
#2
أولاً: عم يتحدث هذا الكود؟ يعني ما هو برنامجك؟
ثانياً: القسم غير مناسب ومن الصعب أن يأتي الأعضاء ويجيبونك هنا. الأفضل وضع الموضوع في قسم:
فيجوال بيسك دوت نت VB.NET
.
الرد }}}
تم الشكر بواسطة:
#3
شكرا .
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,581 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 530 18-05-23, 03:02 AM
آخر رد: سعود
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  الحفظ فى قاعدة البيانات اسلام الكبابى 10 2,350 06-09-21, 06:52 PM
آخر رد: اسلام الكبابى
  طريقة أضافة اكثر من سيرفر على نفس قاعدة البيانات alim54 0 1,139 20-06-21, 11:20 PM
آخر رد: alim54
  ملى الصفحة تلقائياً او ربط مستعرض الانترنت بقاعدة البيانات علي عدنان 2 3,847 02-02-21, 01:31 AM
آخر رد: فارس زيدان
  مساعدة من اخوتي برنامج مبيعات سوبرماركت التعامل مع اكثر من زبون في نفس الوقت Mokhtar-mako 1 1,309 16-01-21, 08:43 PM
آخر رد: moosa_alabri
  كود عدم تكرار البيانات بالداتا جريد فيو ِAbou Sama 4 7,573 04-12-20, 10:59 PM
آخر رد: Osama_NY

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


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