گرفتن آی پی های متصل شده به بانک

[brownbear]

سلام
من چند تا برنامه نوشتم که با بانکم کار می کنند حالا اگه بخوام بدونم در هر لحظه چه کاربری با چه ip به بانک متصل هست چیکار باید بکنم می خاوم بدونم به چه table متصل شده و خلاصه اینکه داره چی کار می کنه

[brownbear]

اگه کسی کد بدست آوردن IP رو هم بده ممنون می شم
یادمه تو SQL یه QUERY بود که اینکارو می کرد

[brownbear]

سلام
من یک سرور دارم که از طریق چند تا کلاینت اطلاعات در اون نوشته می شه حالا من می خوام بدونم که در هر لحظه برنامه از طریق کدوم کامپیوترها اجرا می شه
من ip کامپیوترهایی رو می خوام که به سرور متصل هستند

[brownbear]

اگه این دستورو بصورت کوئری در sql بزنی یه چیزی تو همون مایه ها نشون می ده
Exec sp_who

[GGRRSS_2]

مگر شما چقدر بانك را باز نگه ميداريد بهتر است روش را تغيير دهيد كه بانك باز نماند
اينم كد
Imports System.Net
Dim LocalHostName As String
LocalHostName = Dns.GetHostName()
Dim ipHostEntry As IPHostEntry = Dns.GetHostEntry(LocalHostName)
Dim ipAddress() As IPAddress = ipHostEntry.AddressList
TextBox1.Text = ipHostEntry.AddressList.GetValue(0).ToString

[alimanam]

با سلام

با این رفرنس هم میتونین آدرس IP رو در اینترنت پیدا کنین .( با این سایت (http://whatismyipaddress.com/) تست شده )

http://20uploads.com/images/1390/shahrivar/13156174461.jpg

http://20uploads.com/images/1390/shahrivar/13156174251.jpg

Imports ManamSoftware.IP
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = GetRealIPAddress()
End Sub

End Class



موفق باشید ./

[brownbear]

مگر شما چقدر بانك را باز نگه ميداريد بهتر است روش را تغيير دهيد كه بانك باز نماند
اينم كد
Imports System.Net
Dim LocalHostName As String
LocalHostName = Dns.GetHostName()
Dim ipHostEntry As IPHostEntry = Dns.GetHostEntry(LocalHostName)
Dim ipAddress() As IPAddress = ipHostEntry.AddressList
TextBox1.Text = ipHostEntry.AddressList.GetValue(0).ToString


با تشکر از شما من کانکشن رو کجا باید تعریف کنم

[brownbear]

دوستان لطفا کمک کنید در کجا باید connection رو بنویسم

[GGRRSS_2]

ببخشيد تاخير داشتم

Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'--- my_data نام بانك
'--- My_table نام تيبل
'--- My_Fild نام فيلد
Dim StrSql As String = "select * from My_table"
Dim data_bas As New SqlDataAdapter(StrSql, "Data Source=.;Initial Catalog=my_data;Integrated Security=True")
Dim data_set As New DataSet
data_bas.Fill(data_set, "My_table")
If Me.BindingContext(data_set, "My_table").Count > 0 Then
Me.TextBox1.DataBindings.Add(New Binding("text", data_set, "My_table.My_Fild"))
Me.TextBox1.DataBindings.Clear()
End If
End Sub
End Class