VBNet - Форум - Обычная Data по сети

Вопрос: Обычная Data по сети Добавлено: 18.11.09 13:43

Автор вопроса: DM_AND | ICQ: 390219105

Привет всем. Люди знающие подскажите. Можно ли обычную Data как-то забить на IP или адрес компа?
RData и подобные понятно, а вот саму Data.
Заранее спасибо.
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: DM_AND ICQ: 390219105 Вопросов: 2 Ответов: 8	Профиль \| \| #1	Добавлено: 18.11.09 13:50
	Забыл сказать VB6 Ответить

Номер ответа: 2 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #2	Добавлено: 18.11.09 17:21
	А можно есчё поконкретнее? Я не въехал. Может поинтересуешься о WinSock-е ? Ответить

Номер ответа: 3 Автор ответа: DM_AND ICQ: 390219105 Вопросов: 2 Ответов: 8	Профиль \| \| #3	Добавлено: 18.11.09 19:11
	О WinSock-е я знаю. Чаты и все такое с IP, с этим знаком. Но имя базы через WinSock не работает. Я вот и прошу помощи, может кто это делал или просто знает... Ответить

Номер ответа: 4 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #4	Добавлено: 18.11.09 21:32
	Im supposed to make an application that will manage a car rental and ive made all the forms but when i run the program it gives me an error "Method or data member not found (Error 461)" hares the code ' "Private Sub Command1_Click() <br> Dim DatConn As New ADODB.Connection Dim myRecordSet As New ADODB.Recordset Const myconnect = "Provider = Microsoft.jet.OLEDB.4.0;Data Source=c:\Project.mdb" Call DataConn.Open(Myconnector) Call myRecordSet.Open("SELECT*from tblCars where [CarID]=" & (txtCarID) & "", DataConn, adOpenDynamic, adLockOptimistic) If myRecordSet.EOF = True Then msg "The table is empty" End If myRecordSet.MoveFirst myRecordSet.EOF = False If myRecordSet("CarID") = txtCarID Then lblModel.Text = myRecordSet("Model") lblRegistration.Text = myRecordSet("Registration") lblMillage.Text = myRecordSet("IMillage") Exit Sub Else myRecordSet.MoveNext End If If myRecordSet.EOF = True Then MsgBox "The record does not exist" Exit Sub End If Wend End Sub" <br> "rivate Sub cmdAddcar_Click() <br> Dim CustConn As New ADODB.Connection Dim CustDBase As New ADODB.Recordset Const dataCon = "Provider=Microsoft.jet.oledb.4.0;data source=c:\Poject.mbd\Cars" Call CustConn.Open(dataCon) Call CustDBase.Open("tblCars", CustConn, adOpenDynamic, adLockOptimistic) CustDBase.AddNew CustDBase("CarID") = txtCarID.Text CustDBase("CarModel") = txtModel.Text CustDBase("Make") = txtmake.Text CustDBase("CarRegistration") = txtRegistration.Text CustDBase("Millage") = txtMillage.Text CustDBase("Available") = 1 CustDBase.update txtCarID.Text = "" txtModel.Text = "" txtRegistration.Text = "" txtModel.Text = "" txtID.SetFocus End Sub Взято с www.vb6.us Ответить

Номер ответа: 5 Автор ответа: DM_AND ICQ: 390219105 Вопросов: 2 Ответов: 8	Профиль \| \| #5	Добавлено: 20.11.09 08:21
	Спасибо. Но это через ADO. А я про обычное Dao. Обычная Data. Как по имени компа, понятно. А вот как по IP? При помощи Winsock например. Ответить

Номер ответа: 6 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #6	Добавлено: 20.11.09 18:25
	Просто замени хост нейм на ИП и всё Можешь также использовать TNS-ы. (если Оракул или другой гигант) javascript:document.messageeditor.submit(); Ответить

Номер ответа: 7 Автор ответа: DM_AND ICQ: 390219105 Вопросов: 2 Ответов: 8	Профиль \| \| #7	Добавлено: 22.11.09 16:01
	Ты про Remote Hosт. Тогда Daa определяет это как имя файла и ничего не находит.. Ответить

Страница: 1 |