User Profile

Collapse

Profile Sidebar

Collapse
Gaus
Gaus
Last Activity: Nov 4 '15, 07:14 AM
Joined: May 6 '15
Location:
  •  
  • Time
  • Show
  • Source
Clear All
new posts
  • Gaus
    started a topic DAtabase is not closing
    in Visual Basic .NET

    DAtabase is not closing

    My Database is not closing after creating filed. Please advise
    Code:
    Set mydb = DBEngine.Workspaces(0).OpenDatabase("\172.22.30.41\Training-Data\Training\Gaus\Vertical Updates\Database21.mdb") 
tb = mydb.TableDefs("Sheet1") enter code hereSet fd = tb.CreateField(Me.Date1.Text, dbLongBinary, 1000) 
tb.Fields.Append fd 
mydb.Close 
Set mydb = Nothing 
MsgBox " Date Created"
    ...
    See more | Go to post
    Last edited by Rabbit; May 8 '15, 05:00 PM. Reason: Please use [code] and [/code] tags when posting code or formatted data.
    • Gaus
      started a topic Creat field in access for long text in vb6
      in Visual Basic

      Creat field in access for long text in vb6

      How to create the field for 1000 word

      Set fd = tb.CreateField( Me.Date1.Text, dbText, 1000)

      The above is not working
      See more | Go to post
      • Gaus
        started a topic UPDATE Sheet1 SET '"&text6.text&"'='"&text47.Text&"' Where Vertical = '" & Combo1.tex
        in Access

        UPDATE Sheet1 SET '"&text6.text&"'='"&text47.Text&"' Where Vertical = '" & Combo1.tex

        I am using VB6 and DAO connnection with Access.

        I want to update the records in access using VB. The column name and comments to be updated will be provided by user in text box. Please provide me the SQL command for the same.

        I tried below but not working. It is showing error "Expect End of statment"

        Code:
        UPDATE Sheet1 SET '"&text6.text&"'='"&text47.Text&"' Where Vertical
        ...
        See more | Go to post
        Last edited by zmbd; May 6 '15, 12:43 PM.
        No activity results to display
        Show More
        Working...