• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

nezarabd

اعضاء جدد
  • عدد المشاركات

    8
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن nezarabd

  • الرتبة
    عضو جديد

طرق الإتصال

  • ICQ 0
  1. دى محتوياتtnsnames.ora  لا استطيع عمل connection فى  oracel sql developer ومنين اجيب user name انا استخدم oracel 12c   المحتويات # tnsnames.ora Network Configuration File: F:\app\nezar123\product\12.1.0\dbhome_1\network\admin\tnsnames.ora # Generated by Oracle configuration tools.   ASD =   (DESCRIPTION =     (ADDRESS = (PROTOCOL = TCP)(HOST = DESKTOP-T6TEQAC)(PORT = 1521))     (CONNECT_DATA =       (SERVER = DEDICATED)       (SERVICE_NAME = asd)     )   )   RAD1 =   (DESCRIPTION =     (ADDRESS = (PROTOCOL = TCP)(HOST = DESKTOP-T6TEQAC)(PORT = 1521))     (CONNECT_DATA =       (SERVER = DEDICATED)       (SERVICE_NAME = rad1)     )   )   LISTENER_ASD =   (ADDRESS = (PROTOCOL = TCP)(HOST = DESKTOP-T6TEQAC)(PORT = 1521))     ORACLR_CONNECTION_DATA =   (DESCRIPTION =     (ADDRESS_LIST =       (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1521))     )     (CONNECT_DATA =       (SID = CLRExtProc)       (PRESENTATION = RO)     )   )
  2. اريد تشغيل Oracle على 2013 visual studio   ب Oracle Developer Tools for Visual Studio اتبعت الشرح الموجود هنا  https://docs.oracle.com/cd/B28359_01/appdev.111/b28844/installation.htm#CHDJBEDF   ونزلت   32-bit Oracle Data Access Components (ODAC)  with Oracle Developer Tools for Visual Studio من هنا http://www.oracle.com/technetwork/topics/dotnet/utilsoft-086879.html   لكن المشكله اللى قابلتى بعد ما نصبته   من اين احصل على  SERVICE_NAME  بتاعتى و HOST  بتاعتى  علشان اعمل Connection   وشكرا مقدما
  3. معلومة : اضافة آداه DateTimePicker داخل DataGridView

    شكرا جزيلا على هذه الاداه بس قابلتنى مشكله فى اتجاه كتابه التاريخ وعرضه فاضفت "  Me.RightToLeftLayout = True" فانحلت مشكلة اتجاه كتابة التاريخ لكن تبقت مشكله عرض التاريخ حيث يعرض من الشمال لليمين ملحوظه form عامله rtl=true وشكرا مقدما   Public Sub ApplyCellStyleToEditingControl(ByVal dataGridViewCellStyle As  _         DataGridViewCellStyle) _         Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl         Me.Font = dataGridViewCellStyle.Font         Me.CalendarForeColor = dataGridViewCellStyle.ForeColor         Me.CalendarMonthBackground = dataGridViewCellStyle.BackColor         Me.Format = DateTimePickerFormat.Custom         Me.CustomFormat = "dd/MM/yyyy "         Me.RightToLeftLayout = True     End Sub
  4. هيا بنا نصنع نظام لطباعة الباركود

    اتمنى ان يساعد هذا الموقع فى الشرح http://www.onbarcode.com/tutorial/vb-net-barcode-reader.html
  5. عند تسطيب visual studio 2010     Setup FailedThere were errors during setup. Although some components were installed successfully, errors were detected.  View Error Log   ومرفق error log file وياريت بلاش تقترحوا عليا تنزيل ويندوز من تانى وشكرا مقدما
  6. مالهاش حل ياجماعه ولا ايه
  7. شكرا على الرد السريع ومرفق هنا المشروع nn.rar nn.rar
  8. ما الخطا فى هذا الكود حيث ان البرنامج يسجل حقول وليس هناك اى مشاكل ولكن عند الحذف يحذف تمام ولكن عند الضغط على button3,button4 يعرض رسالة خطأ DataBinding cannot find a row in the list that is suitable for all bindings وهذا هو البرنامج Imports System.Data Imports System.Data.OleDb Public Class Form1 Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source =" & Application.StartupPath & "\MyData.mdb" Dim Conn As New OleDbConnection(ConStr) Dim DataSet1 As New DataSet Dim SQLstr As String = "SELECT * FROM Table1" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Conn.Open() Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn) DataAdapter1.Fill(DataSet1, "Table1") Conn.Close() TextBox1.DataBindings.Add("Text", DataSet1, "Table1.Name") TextBox2.DataBindings.Add("Text", DataSet1, "Table1.City") TextBox3.DataBindings.Add("Text", DataSet1, "Table1.Mobile") DateTimePicker1.DataBindings.Add("value", DataSet1, "Table1.tdate") DateTimePicker2.DataBindings.Add("value", DataSet1, "Table1.ttime") ChangePosition() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.BindingContext(DataSet1, "table1").Position = 0 ChangePosition() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.BindingContext(DataSet1, "table1").Position -= 1 ChangePosition() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.BindingContext(DataSet1, "table1").Position += 1 ChangePosition() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.BindingContext(DataSet1, "table1").Position = Me.BindingContext(DataSet1, "table1").Count - 1 ChangePosition() End Sub Public Sub ChangePosition() Label4.RightToLeft = Windows.Forms.RightToLeft.Yes Label4.Text = "السجل " & Me.BindingContext(DataSet1, "table1").Position + 1 & _ " من " & Me.BindingContext(DataSet1, "table1").Count '- 1 End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim frm2 As New Form2 frm2.Show() Me.Hide() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then Exit Sub End If Dim SavInto As New OleDb.OleDbCommand Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn) SavInto.Connection = Conn SavInto.CommandType = CommandType.Text SavInto.CommandText = "DELETE FROM Table1 WHERE Mobile ='" & Trim(TextBox3.Text) & "'" ' Conn.Open() SavInto.ExecuteNonQuery() DataSet1.Clear() DataAdapter1.Fill(DataSet1, "Table1") ' SavInto.Dispose() ' nezar Conn.Close() TextBox1.DataBindings.Clear() TextBox2.DataBindings.Clear() TextBox3.DataBindings.Clear() DateTimePicker1.DataBindings.Clear() DateTimePicker2.DataBindings.Clear() MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح") ChangePosition() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim frm3 As New Form3 frm3.TextBox1.Text = Me.TextBox1.Text frm3.TextBox2.Text = Me.TextBox2.Text frm3.TextBox3.Text = Me.TextBox3.Text frm3.Label4.Text = Me.TextBox3.Text frm3.Show() Me.Hide() End Sub ' Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) ' Dim frm4 As New Form4 ' frm4.Show() ' Me.Hide() ' 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 Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Dim m As String m = "برنامج منبه المواعيد" & vbCrLf m &= "هذا البرنامج من اعداد" & vbCrLf m &= "المهندسه " & vbCrLf 'm &= "[email protected]" MsgBox(m) End Sub End Class