[shabah10]

السلام عليكم شباب دي اول مشاركة ليا ارجو منكم ان تساعدوني انا بعمل مشروع عن كشف رقم المتصل بس انا بضيف عليه شوية حاجات زي صورة المتصل والمدة المحددة للمكالمة يعني تطلع رسالة فى الرقم والاسم والتاريخ والصورة ويتحط علطول على الداتا والداتا جريد ياريت حد منكم يساعدني وده الكود اللي بستخدمه هو نفس اللي عندكم بس عايز ابين اسم المتصل من الداتا بيس ويطلع على الداتا جريد من فضلكم ساعدوني
Imports System.IO
Imports System
Imports System.Net
Imports System.Data
Imports System.Windows.Forms
Imports System.ComponentModel
Imports TAPI3Lib
Imports TAPI3Lib.TAPI_EVENT
Imports System.IO.Ports
Imports System.Management
Imports System.Data.SqlClient
Imports System.Data.Sql
Partial Public Class Main
Dim ResultData As String = ""
Dim table As New DataTable
Dim ds As New DataSet
Dim dp As New SqlDataAdapter
Public Function ModemsConnected(Optional ByRef ListOfModems() As String = Nothing) As String
Dim modems As String = ""
Dim _ListOfModems As New List(Of String)
Try
Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_POTSModem")
For Each queryObj As ManagementObject In searcher.Get()
If queryObj("Status") = "OK" Then
modems = queryObj("AttachedTo") & " - " & queryObj("Description")
_ListOfModems.Add(modems)
End If
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
Return ""
End Try
ListOfModems = _ListOfModems.ToArray
Return modems
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ListOfModems() As String = {}
SerialPort1.PortName = Strings.Left(ModemsConnected(ListOfModems), 4)
SerialPort1.DtrEnable = True
SerialPort1.Open()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Registration.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Contactinformation.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Close()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
On Error Resume Next
Dim RE As String = SerialPort1.ReadExisting
ResultData += RE & vbNewLine
Dim mycon As New SqlConnection
Dim query As String
mycon.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\Documents and Settings\DELL\My Documents\project caller id111\project caller id\Database1.mdf;Integrated Security=True;User Instance=True"
mycon.Open()
query = "insert into data values(Phone_number,Time,Date)"
dp.InsertCommand = New SqlCommand(query, mycon)
dp.InsertCommand.ExecuteNonQuery()
MsgBox(ResultData & DateAndTime.Now)
DataGridView1.DataSource = ResultData
DataGridView1.Refresh()
mycon.Close()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub


End Class

[shabah10]

من فضلكم ياجماعة ساعدوني

[shabah10]

يعني مش معقول اي حد ماعندوش فكرة يساعدني