Visual Basic

Private Sub Command1_Click()
        List1.Clear
        Dim inp As Integer
        Dim spaces As String
        Dim numbers As String
        '##INPUT
        inp = CInt(InputBox("Insert Max Value", "Value"))
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        For a = 1 To (inp * 2) - 1
            '##SPACES
            If a <= inp Then
                For b = 1 To (inp - a)
                    spaces = spaces + " "
                Next
            Else
                For b = 1 To (a - inp)
                    spaces = spaces + " "
                Next
            End If
            '##NUMBERS
            If a <= inp Then
                For c = 1 To a
                    numbers = numbers & c
                Next
            Else
                For c = 1 To (inp * 2) - a
                    numbers = numbers & c
                Next
            End If
            '##OUTPUT
            List1.AddItem spaces + numbers
            spaces = ""
            numbers = ""
        Next
End Sub

'Default database DB1
Private Sub Form_Open(Cancel As Integer)
   Dim ssql As String
 
    ssql = "SELECT [tbl1].id, [tbl1].code,[tbl1].mflag, [tbl2].cdnum, [tbl3].bname"
    ssql = ssql & " FROM  [tbl1] INNER JOIN"
    ssql = ssql & " [tbl2] ON"
    ssql = ssql & " [tbl1].id = [tbl2].id INNER JOIN"
    ssql = ssql & " [tbl3] ON [tbl1].code = [tbl3].code"
    ssql = ssql & " WHERE [tbl1].mdate ='2011/10/12'"
    Me.RecordSource = ssql
    
    Me.UniqueTable = "tbl2"

End Sub

'option to select DB1 or DB2
Private Sub optSel_AfterUpdate()
    Dim ssql As String
    
    'DB1
    If Me.optSel = 1 Then
        ssql = "SELECT [tbl1].id, [tbl1].code,[tbl1].mflag, [tbl2].cdnum, [tbl3].bname"
        ssql = ssql & " FROM  [tbl1] INNER JOIN"
        ssql = ssql & " [tbl2] ON"
        ssql = ssql & " [tbl1].id = [tbl2].id INNER JOIN"
        ssql = ssql & " [tbl3] ON [tbl1].code = [tbl3].code"
        ssql = ssql & " WHERE [tbl1].mdate ='2011/10/12'"      
    Else 'DB2
        ADODisconn 'disconnect to DB1
     
        ADOConDB2  'connect to DB2        
        
         ssql = "SELECT [tbl2].id,[tbl2].code,[tbl2].mflag,[tbl2].cdnum,[tbl3].bname"
         ssql = ssql & " FROM  [tbl2] INNER JOIN [tbl3] ON "
         ssql = ssql & " [tbl2].code = [tbl3].code"
         ssql = ssql & " WHERE [tbl2].id > 160" 
    End If

   Me.RecordSource = ssql
   Me.UniqueTable = "tbl2"

End Sub

C#Coudou wrote:

is my approach correct?

i mean connecting other database in an access form.

 

here is my snippet code: ACCESS FORM

Bastard Programmer from Hell

C#Coudou wrote:

nope, this is not vb.net, this is MS Access, that is why you cannot see an oledbcommand.yes, I'm using old recordsets.

C#Coudou wrote:

If i will use oledb connection, how can i add the data's in my continuous form?

C#Coudou wrote:

This project is an .adp(microsoft access project),which means if you open the myproject.adp, it is already connected to database.

Bastard Programmer from Hell

.Add("@fund_id", SqlDbType.Int, 0, "fund_id")
.Add("@bank_doc_ref_no", SqlDbType.NChar, 10, "bank_doc_ref_no")

Dim y, X As Integer
y += 20
X += 30

Mangore75 wrote:

I didn't found any way about how to use them(X,Y)