منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الي كل من يجيد التعامل مع قواعد البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : الي كل من يجيد التعامل مع قواعد البيانات (/showthread.php?tid=7741)



الي كل من يجيد التعامل مع قواعد البيانات - السندباد المصري - 25-02-13

ما الخطا هنا



كود :
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]


الي كل من يجيد التعامل مع قواعد البيانات - أبوبكر سويدان - 04-05-13

أولاً: عم يتحدث هذا الكود؟ يعني ما هو برنامجك؟
ثانياً: القسم غير مناسب ومن الصعب أن يأتي الأعضاء ويجيبونك هنا. الأفضل وضع الموضوع في قسم:
فيجوال بيسك دوت نت VB.NET
.


RE: الي كل من يجيد التعامل مع قواعد البيانات - CLARO - 02-06-16

شكرا .