Спасибо за внимание

amelina писал(а):Text1.dataSourceЯ идиот! Убейте меня, кто-нибудь!????
Public Sub TakeRecordset(rs as Recordset)
здесь этот рекордсет сохраняем, например, в локальную переменную или в свой adocdc.
end sub
Rainbow писал(а):amelina писал(а):Text1.dataSourceЯ идиот! Убейте меня, кто-нибудь!????
А что, собственно, такого? Он может отображать данные из какого-то поля рекордсета...
Set rs = db.OpenRecordset(strsql)
if not rs is nothing then
if not rs.eof then
Text1.Text = rs.Fields("san")
end if
end if
if not IsNull(rs.Fields("city")) then
Text1.Text = rs.Fields("city")
else
Text1.Text = ""
end if
dimalib писал(а):Rainbow а куда писать
Form1 (там где adocdc1):
Form2 (куда будем передавать)
Option Explicit
Public db As Database
Public rs As Recordset
Public ws As Workspace
Private Sub Command1_Click()
rs.MoveNext
If IsNull(rs.Fields("city")) Then
Text1.Text = ""
Else
Text1.Text = rs.Fields("Name2")
End If
End Sub
Private Sub Command2_Click()
Form2.TakeRecordset rs
Form2.Show vbModal
End Sub
Private Sub Form_Load()
Dim str As String
str = Form1.Text1
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("c:\db.mdb")
Dim strsql As String
strsql = "SELECT * FROM Table1"
Set rs = db.OpenRecordset(strsql)
If Not rs Is Nothing Then
If Not rs.EOF Then
Text1.Text = rs.Fields("city")
End If
End Sub
Option Explicit
Private rs1 As Recordset
Public Sub TakeRecordset(rs As Recordset)
Set rs1 = rs
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2