Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Print Out Rich Text Stored In Data Base


Dear all,


How can I print out ( On Printer) rich text format that stored in msaccess data base that appare in rich text box in form .

Thanx




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
How To Show A Image,that Is Stored In Data Base, In Crystal Report 7.0
pls help me to solve this problem.
i have stored a imgae in data base but i don't know how to show that image in crystal report 7.0.......

How Datareport In Vb 6.0 Can Show Images Stored In Access Data Base
i had saved images in the access using oleobject and thus it is saving images in binary format but i dont know how to retrive the images form access on the datareport is it feasible if yes then pls reply me how

MSDOS Base Print Data Report
How can I Ms Dos base print data report ?

How Can Rich Text Be Stored In And MSDE Database?
Hi, everyone!

Can anyone suggest a good method of storing/retrieving formatted text in an SQL Server 7-compatible database? I'm using ADO and a VB6 application to access an MSDE database. I intend to use a Rich-Text Box control to enter data (and maybe to display data if there isn't a better way).

[REQ]How To Print A Rich Text Box?
Howdy!

Using Excel 2000...

I have a simple rich text box populated with text embedded on a standard Excel worksheet. When I try to print(or even just do a print preview), the rich text box is not visible. Does anyone know why?

I unchecked and re-checked Format Object->Print Object, but it didn't seem to change anything.

What, might I inquire, am I doing horrifically wrong???

Happy Easter.

Print Rich Text Box
I have 5 Rich Text boxes that I want to print to the printer. I've not too sure how to do this. When I go to print the print job sits there spooling until I close out of the project and the text in the text boxes is multiple lines and only the first line is indented based on the tab settings.

Printer.Font.Size = 12
Printer.Font.Name = "Arial"
Printer.Print Tab(10); "Title: "; lblTitle.Text
Printer.Print
Printer.Print
Printer.Print Tab(10); "Submitted By: "; lblBy.Text
Printer.Print
Printer.Print
Printer.Print Tab(10); "Date: "; lblDate.Text
Printer.Print
Printer.Print
Printer.Print Tab(10); "Symptom:"
Printer.Print Tab(10); txtSymptom.Text
Printer.Print
Printer.Print
Printer.Print Tab(10); "Resolution:"
Printer.Print Tab(10); txtResolution.Text
Printer.Print
Printer.Print

cmdPrinter.ShowPrinter

Print From A Rich Text Box?
I don't know how to make my program print from a RichTextBox. Please help if you can.

RichTextBox1
cmdPrint
mnuFilePrint

Thanks.

Want To Print And Fax The Rich Text Box's Content.
Hi All,

I have created an application with a RichTextBox control on the form.
I need that user can print the content of Richtextbox.

I added Common Dialog box in my form and able to generate the print dialog box but unable to print only Rich Text box content.

Similarly if the user need to fax or email the content what control and coding i should add?

Thanx,
Saurabh

Print Contents Of Rich Text Box
How do I print contents of the Rich text box on the printer?

MCA
Goa University

Insert Record Form Local Data Base To Remote Dat Base
I want to update a Remote database data to locl database data through my Pc but i want to use it in asp in in VB i create a connect

i write a code but its not working

<%

set conLocal     = server.createObject("adodb.connection")
set conRemote     = server.createObject("adodb.connection")

set rsLocal    = server.createObject("adodb.Recordset")
set rsRemote     = server.createObject("adodb.Recordset")

path    = server.mappath("./../")

pathLocal = path & "dbdb1.mdb"

pathRemote = path & "database.mdb"


conLocal.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source='"& pathLocal &"' ; Persist Security Info=False"
conRemote.open "Provider=MS Remote; Remote Server=http://myUrl.com; Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source='"& pathRemote &"'"
 




Edited by - r_bilgrami on 10/5/2003 11:32:38 PM

Insert Long Text In Data Base
Friends,

Please, somebody help me!!! I trying to insert a long text (360 pages of MS-WORD) into Data Base of SQL SERVER 2000. I'm using the command and the fields in SQL SERVER is Text.

How can I do this?

Tks,

Eduardo - TI Manager

Insert Long Text In Data Base
Friends,

Please, somebody help me!!! I trying to insert a long text (360 pages of MS-WORD) into Data Base of SQL SERVER 2000. I'm using the command and the fields in SQL SERVER is Text.

How can I do this?

Tks,

Eduardo - TI Manager

Print A Rich Text File Without Common Dialog?
i was wondering if there was a way to print a .rtf (rich text file) without using the common dialog control, so that no dialog boxes come up.

i found some code that would print a .txt file, but it can't do rich text.

any ideas?

Can Somebody Tell Me How To Use The Print Previw Dll With Sample Code On Rich Text Bx
Can somebody tell me how to use the Print preview dll with sample code on Rich Text box.

Thanks
VijayS

Rich Text Box Print Output Missing Lines
Hello

I have a rich text box that I print the contents of using the following code

Code:
Private Sub cmdPrint_Click()

Printer.Font.Name = "Courier New"
Printer.Font.Size = 6
Printer.Print RichTextBox1.Text

Printer.EndDoc

End Sub


The problem that I'm having is that randonly there is a line that is blank. The text that should be on that line is just gone with a blank line where it should be.
The line in question is a line of dashes that I use as a separator. There is one of these every 7th line. The missing lines are not at a page break and appear to be competely random. Sometimes there will be none for several pages then up it pops.

Any ideas?

Thanks

David

Loading Names Of Files Into A Data Base Or Text File
I need to put to gether a program for mangeing data at work. I need to know how to look in a directory and load the names of the files in it to either text file or preferbly a data base file. I need the code and explicet instructions on how to use the code(I'm still trying to get used to VB)

Opening A New Data Base From Within A Data Base Form
I use to open another Access data base from a Main Switchboard of an active Access data base using TsiSoon90 within the script, this isn't working since we changed to XP. What could the problem be?

Printing Using Rich-text Editor With Page Ejects In A Single Print Job
Hi everybody,
I have made a print utility using the Rich text editor control. The output to be printed is first displayed on a rich text editor control and on clicking the print command button, it is printed using the SelPrint method. To have page eject, I used the SelPrint method for every page. But the drawback of this method is that for every page a seperate print job is generated. Is there any way I can print all the pages in a single print job and also have page ejects between pages ?

Reading Data From A Rich Text Box
Hello again
Say i had a Rich text Box with this in it.

float 0.000000, 0.000000, 0.000000 ;vertex 0
float 0.000000, 0.000000, 0.000000 ;vertex 1
float 0.000000, 0.000000, 0.000000 ;vertex 2
float 0.000000, 0.000000, 0.000000 ;vertex 3
float 0.000000, 0.000000, 0.000000 ;vertex 4
float 0.000000, 0.000000, 0.000000 ;vertex 5
float 0.000000, 0.000000, 0.000000 ;vertex 6
float 0.000000, 0.000000, 0.000000 ;vertex 7

How could i make my app Read 4 lines at a time

and get thoes 0.00000 Values and store them as say
A
B
C
D
E
F
G
H
I
J
K
L

? then my app would do some calculations with thoes values ?

how can i do that ?

Data Justification In Rich Text Box
Hi sir..

We r developing CBTS using VB6.0 where we r using RichText box control for displaying data.We have taken care left alignment
only while data entry done.Now my problem is Displayed data
should be Justified in Rich Text Box control..

so please help me in finding the solution


Thank u

satya

Reading Rich Text Data
Hi

I'v got an Access database with memo fields on a table. I'm writing data into the memo fields through a RichTextBox using RTF format. Now I want to retrieve this data back from the database and use it in my application. Could this be done without using a RichTextBox control?
Even if I use the RichTextBox control to read the data, I'm not able to transfer the contents to any other control (for eg. textbox). My actual objective is to read the data and put it in a Word document using OLE. If I attempt doing this, the content is not in readable form. Is there a solution ?

Save Data In A Rich Text Box
This is a multi-part message in MIME format.

------=_NextPart_000_0019_01C15238.8B8CA0E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hello,

I am using VB 6.0 with an adodc connected to MS Access MDB.

I'm using "adodc1.recordset.update" and then "adodc1.refresh" to savedata in a rich text box, but the data does not save. How can I get therich text box to save the data?

Thanks

------=_NextPart_000_0019_01C15238.8B8CA0E0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1"http-equiv=Content-Type>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Hello,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>I am using VB 6.0 with an adodcconnected to MS


Access MDB.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>I'm using "adodc1.recordset.update" andthen


"adodc1.refresh" to save data in a rich text box, but the data does not


save.  How can I get the rich text box to save thedata?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Thanks</FONT></DIV></BODY></HTML>

------=_NextPart_000_0019_01C15238.8B8CA0E0--

How To Get Rich Text In Data Report ?
How to get the Rich text in the Data report.. as the data is present in memo field of Table and I need to show the same in report.. can anybody help me..
Sarma ..kvsarma@yahoo.com

Can VB Data Report Display Rich Text?
I need to display rich text in a VB data report. Can the data report display rich text? I can only get it to display the rich text with all the formatiing that goes along with it.

Thanks in advance,

Shannan

Data Justification In Rich Text Box Control
Hi..

We R Developing CBT 's with Using VB6.0 and MS Access..
while inserting data we r taking care of left alignment only.
At the same time while retriving data, the format should be justified in Rich Text Box Control..How to do this?


please advise this

Data Report Question And Rich Text
I am printing a data report and one field in the report is in Rich Text Format.  I need to keep it RTF because of the formatting, etc.  Currently it comes out on the data report like this :

{
tf1ansideff0{f0fnilfcharset0 MS Sans Serif;}}
viewkind4uc1partlang1033fs17
par    Procedure:  Sample procedure
par
par    Method:  Sample method here

Obviously not very appealing to the end user.  Is there any way to get the data report to print out Rich Text without the other stuff?  I am printing this stuff in a label on the data report.

Thanks in advance.  You guys always come to the rescue when I have one that holds me up.  

Shannan


[RESOLVE] Does Anyone Know How Much Data Can A Rich Text Box Hold?
Is there any other way to use beside the RichText box for the output??

I query a large data, on my .bat file display 10531 lines when I displayed this result in the ms excel

when i display them on my Richtext box in VB 6.0 I got only 1355 lines in the MS excel

I used the same format to query the data from a database. except one is on the .bat against the vb.

thanks,

stash




Edited by - stash on 1/16/2007 10:26:33 AM

Data Report - Displaying Rich Text From DB
Hi -

My question is: How do you display rich text (italics, underlines, bold) from a database on a Data Report?

I have written Rich Text from the MS Rich TextBox to a memo field in an Access Database.

I now need to display the text from the DB on a Data Report. When I bind the memo field to a RptTextBox field on the Data Report, it displays the data, but not the formatting. In fact it displays all the ASCII codes for the formatting that was in the MEMO field.

The data is being displayed like this:
{
tf1ansideff0{fonttbl{f0fnilfcharset0 MS Sans Serif;}}
viewkind4uc1pardlang1033f0fs17 Record 4: i ITALICi0 , ul UNDERLINEDulnone ,  BOLD0 , REGULAR
par }

THANKS!!

Inserting Data Into Rich-Text File
Good Day

I have created an invoicing program in VB6 – MS-Access 2003. I have a form and using RichText control for the invoice, this one is for printing and creating a soft copy. Now the main reason why I when with a rich-text is to have the ability to email the invoice. I have another form for the email and the body of the email is using RichText control. The problem that I am having is exporting the invoice items into the rich-text file. My invoice form draws the data form another form that the user can pick the preson name and invoice number. This form uses a datagrid and Adodc ( I included some screen shots of it )


Code:

Private Sub Form_Load()

Set ConnDB = New ADODB.Connection
With ConnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "SpeedData.mdb;Persist Security Info=False"
.Open
End With

lblTemp1 = ViewPrintInvoice.lblInstaller.Caption
lbltemp2 = ViewPrintInvoice.lblInvoiceNum.Caption
Totals
LoadData

End Sub

Private Sub LoadData()
Dim Temp As String

Set rstOwner = New ADODB.Recordset

With rstOwner
.ActiveConnection = ConnDB
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open "SELECT * FROM Owner"
End With

Set rstTax = New ADODB.Recordset

rtbInvoice.LoadFile App.Path & "TempInvoice.rtf"

Temp = rtbInvoice.TextRTF

Temp = Replace(Temp, "toDayDate", Space(0) & ViewPrintInvoice.lblDate.Caption)
Temp = Replace(Temp, "invX", Space(0) & ViewPrintInvoice.lblInvoiceNum.Caption)

Temp = Replace(Temp, "busNameX", Space(0) & rstOwner![BusName])
Temp = Replace(Temp, "ownerX", Space(0) & rstOwner![Name])
Temp = Replace(Temp, "addressX", Space(0) & rstOwner![Address])
Temp = Replace(Temp, "cityX", Space(0) & rstOwner![OCity])
Temp = Replace(Temp, "provX", Space(0) & rstOwner![Prov])
Temp = Replace(Temp, "postalX", Space(0) & rstOwner![PostalCode])
Temp = Replace(Temp, "phoneNumX", Space(0) & rstOwner![PhoneNum])
Temp = Replace(Temp, "faxX", Space(0) & rstOwner![FaxNum])

Temp = Replace(Temp, "busNameY", Space(0) & ViewPrintInvoice.lblBusName.Caption)
Temp = Replace(Temp, "installerY", Space(0) & ViewPrintInvoice.lblInstaller.Caption)
Temp = Replace(Temp, "addressY", Space(0) & ViewPrintInvoice.lblAddress.Caption)
Temp = Replace(Temp, "cityY", Space(0) & ViewPrintInvoice.lblCity.Caption)
Temp = Replace(Temp, "provY", Space(0) & ViewPrintInvoice.lblProv.Caption)
Temp = Replace(Temp, "postalY", Space(0) & ViewPrintInvoice.lblPostalCode.Caption)
Temp = Replace(Temp, "phoneNumY", Space(0) & ViewPrintInvoice.lblPhoneNum.Caption)

Temp = Replace(Temp, "gstY", Space(0) & newGst & "%")
Temp = Replace(Temp, "pstY", Space(0) & newPst & "%")

Temp = Replace(Temp, "gstX", Space(0) & varGst)
Temp = Replace(Temp, "pstX", Space(0) & varPst)
Temp = Replace(Temp, "subTotalX", Space(0) & varSubTotal)
Temp = Replace(Temp, "totalX", Space(0) & varTotal)

rtbInvoice.TextRTF = Temp
rtbInvoice.SelStart = 1

Me.rtbInvoice.SaveFile App.Path & "Invoices" & ViewPrintInvoice.lblInstaller.Caption & " " & ViewPrintInvoice.lblInvoiceNum.Caption & ".rtf"


End Sub

Rich Text Box Formatting When Bound To Data Control
I have a rich text box on my form, it is bound to an ADO Data Control. I can format the text in bold or not bold. The problem is

1. I highlight the text and click the bold button and it makes it bold.

2. With the text still highlighted I click the bold button and the text remains bold and the cursor moves to the first of the rich text box.

3. When I highlight the text again and click the bold button it unbolds and works fine.

I cannot consecutively click the button to bold and unbold text or to bold seperate highlighted text. The code works fine on a regular Rich Text box only when it is used on a bound Rich Text box does it go flakey.

Here is the code I am using in my Toolbar.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key

Case "Bold"
If IsNull(RichTextBox1.SelBold) = True Or RichTextBox1.SelBold = True Then
' Code to run when selection is mixed.
RichTextBox1.SelBold = False
Toolbar1.Buttons("Bold").Value = tbrUnpressed
ElseIf RichTextBox1.SelBold = False Then
' Code to run when selection is not bold.
RichTextBox1.SelBold = True
Toolbar1.Buttons("Bold").Value = tbrPressed
End If
End Select

End Sub

Thanks
Brandon

Move Data From Datagrid To A Rich Text Format File
i wanna copy data shown in datagrid to a rich text format file
as a report to be printed
please elaborate a bit

thx....

How To Split Larg Data Stored In The Database To A Multiline Text Box
Hiii

PNS (waters) View ' heading in database

-----data for above heading-----------

_ Both maxillary & frontal sinuses are normal, sprenoid sinus is normal, enthnoidal sinus is normal, nasal septum is normal, IMPRESSION - Normal Study
----------X--------------------X------

as soon i select the above headding in the combo box the below text should come in a multiline text box in this way

_ Both maxillary & frontal sinuses are normal
_ sprenoid sinus is normal
_ enthnoidal sinus is normal
_ nasal septum is normal
IMPRESSION - Normal Study

-------------------------------------

is it possible to do using vb...?

Extracting Data, Update And Replace Back Into Data Base
Hello all
           It has been a while since I last looked at some VBA code so I am a little rusty, I was never that good to start of any way

Geof helped me out ages ago to copy a row of data from a worksheet in the same workbook using the "Find" function in Excel then pasting to a different worksheet using the code in Module "Reports_Function"

The code copy's the row to sheet "Copy Hidden" and from their I am populating "Sheet Userform", on this this the user can update the values. The new values are linked to sheet "Past hidden", so the data base can be updated.

I am trying to get the "FindValue" to auto populate, the value is located @ Past hidden $J$4". Then select and copy the range on "Past hidden". Find the corresponding "FoundValue" on the sheet "Master data", select the range then past the data back into the master data base.

In module "Up_Date_Master" I have tried to start some code to to the above but I am falling at the first hurdle to auto populate the FindValue.

Kind Regards
                   Tom




Edited by - Nozmo on 5/31/2007 1:50:41 AM

Creating A Data Base In A Program Then Writing Data To It.
I have 3 good VB books, each covers DB generation, and accessing a database for information.

None describes how to put the data there from a program in the first place.

I have a program the parses files orginally created by dumpsec.exe.

They are straight text files. Their purpose is to dump access control lists from NT member servers.

I have created a text output, then I use a excel macro to modify the data for a management reports.

I would like to create a access database file, then use a routine I purchased to display and then convert it to excell. It just looks more professional.

I am attaching my current code. The first half is creating the data base. This is where I want to go.

The second half is my current text file output that is then modified by a excel macro. I am including this as reference.


' ************************************
If chkGrpCFMReport = 1 Then 'call master reports sub


Dim NewDb As Database, NewWs As Workspace
Set NewWs = DBEngine.Workspaces(0)
'Set NewDb = NewWs.CreateDatabase(strReportLocation(0), dbLangGeneral)
Set NewDb = NewWs.CreateDatabase("c:dumpacl
eportsgrpcolmaster.mdb", dbLangGeneral)

Dim NewTbl As TableDef
Set NewTbl = NewDb.CreateTableDef("PrivGrpID")
NewTbl.ValidationRule = "PrivGrpID <> ' '"
NewTbl.ValidationText = "Field Cannot be Blank"
Dim F1 As Field, F2 As Field, F3 As Field ', F4 As Field, F5 As Field, F6 As Field, F7 As Field

' ************************************
' Specify filed Server, ID, Member, and Type as Create Field arguments
Set F1 = NewTbl.CreateField("ServerName", dbText, 16)
Set F2 = NewTbl.CreateField("Group", dbText, 40)
Set F3 = NewTbl.CreateField("Member", dbText, 30)
'Set F4 = NewTbl.CreateField("Comment", dbText, 21)
'Set F5 = NewTbl.CreateField("MemberType", dbText, 15)
'Set F6 = NewTbl.CreateField("Approver", dbText, 15)
'Set F7 = NewTbl.CreateField("Keep", dbText, 4)
'Set F8 = NewTbl.CreateField("Removed", dbText, 4)


' append the fields into the database
NewTbl.Fields.Append F1
NewTbl.Fields.Append F2
NewTbl.Fields.Append F3
'NewTbl.Fields.Append F4
' NewTbl.Fields.Append F5
' NewTbl.Fields.Append F6
'NewTbl.Fields.Append F7

' set all fields to allow variable length

F1.Attributes = dbVariableField
F2.Attributes = dbVariableField
F3.Attributes = dbVariableField
'F4.Attributes = dbVariableField
'F5.Attributes = dbVariableField
'F6.Attributes = dbVariableField
'F7.Attributes = dbVariableField

F1.Attributes = AllowZeroLength
F2.Attributes = AllowZeroLength
F3.Attributes = AllowZeroLength
'F4.Attributes = AllowZeroLength
'F5.Attributes = AllowZeroLength
'F6.Attributes = AllowZeroLength
'F7.Attributes = AllowZeroLength

' append to database

NewDb.TableDefs.Append NewTbl
NewDb.Close
End If

ctrReportLines = 0
' ************************************
If chkGrpCFMReport = 1 Then 'call master reports sub




'Close #5

Open strReportLocation(0) For Append As #5
' Open "c:dumpaclgroupmaster.txt" For Append As #5
Print #5, " "
Print #5, " "
Print #5, strdfdir
Print #5, " "


'Print #5, strDatesDir

Do Until lngMasterGroups = ctrReportLines

If Mid$(strMasterGroups(ctrReportLines), 1, 1) <> " " And ctrReportLines > 2 Then

strMasterGroupsTempHeader = strMasterGroups(ctrReportLines)


If Not Err = 0 Then

MsgBox Err & " error"
Err = 0
'Exit Do

End If
Print #5, " "
Print #5, ", " & strMasterGroupsTempHeader


lstresults.AddItem " "

lstresults.AddItem Trim(strMasterGroupsTempHeader)


' MsgBox strReportLocation(0)
End If

If Mid$(strMasterGroups(ctrReportLines), 1, 1) = " " And ctrReportLines > 2 Then

Print #5, ", , " & strMasterGroups(ctrReportLines)

lstresults.AddItem Trim(strMasterGroups(ctrReportLines))


End If
ctrReportLines = ctrReportLines + 1

' Call GroupColumnMasterReport
Loop

Close #5

Print A Text File Containing Data For Printing To A Printer
I have a text file that came from a Network Analyzer printer.. I need to send the print data it sent me to a printer or plotter via LPT1.

The data looks something like this.
DF;IN;IP250,279,10250,7479;sc0 , 4095 ,0 ,4212;VS;SP2;;PU;PA0;PA244 ,2676 ;PD;PA244... etc

Anycase I understand I could output this directly to the printer and it would print it since they are plot points. Only problem is I don't know how to send it directly to the printer. Any help would be greatly appreciated.

thanks
Sidney

How Can I Filter Data Wich Not In Data Base
please help me how to filter my data
i have student data like student 1 until student 20
and other data (data 2 ) is student who take 1 study like math
so if the student whi dont take math do not appear int data 2 right?
how can i list student who take math? how i type the cod e to do that?

Insert Data Into A Accees Data Base
how can i insert data into a access database .
ie defining the connections and the query???

when opportunities arises ,only the prepared mind is fovoured

Data Base
Let Me Ask A dumb Question.

Do you have to create a database using excel or Dbase or SQl before you can access it in Vb or am I in left Field.

I Now use fields to store records I think that I could do alot better with database would make sorting alot faster.


Don

Quote:




OLD Dos Programmer

Need Help With A Data Base
I am running out of time to write this post right now but here is some info about my problem. I am writing a program that displays information from an MS access database (DAO) in textboxes. Here is the code so far:

Private Sub MnuOpenDatabase_Click()
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "DataBase Files(*.mdb)|*.mdb|Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
CommonDialog1.InitDir = "C:My Documents"
CommonDialog1.ShowOpen
Dim table1index As Integer
Dim table2index As Integer
If CommonDialog1.FileName &lt;&gt; "" Then
Set db = _
DBEngine.Workspaces(0).OpenDatabase(CommonDialog1.FileName)
table1index = 0
While (db.TableDefs(table1index).Attributes And dbSystemObject)
table1index = table1index + 1
Wend

Set dbrecordset = db.OpenRecordset(db.TableDefs(table1index).Name, dbOpenTable)
Set td = db.TableDefs(table1index)

Text1.Text = dbrecordset.Fields(0)
Text2.Text = dbrecordset.Fields(1)
Text3.Text = dbrecordset.Fields(2)
Text4.Text = dbrecordset.Fields(3)

End If
End Sub

I can see the information for the first person on my database, but I was wondering how to display the information for the second person on my data base

Help With Data Base
Hi

i am a newbi to VB i have no programming expirance and i have ran in to a little problem, for my VB class (1st yr) i need to make a database in which i can add, manage and remove customers i have asked about and i found out i need MS Access to make the database but i have no idea how to use this in VB, i made a table and search quiary but i found that hard as well i dont even know if i did it right but what i really need to know is how to make a data base in VB which i can add, manage and remove customers within if someone could help me out please

Vbs Data Base...
hi guys! thus the connection of database in [vb] is similar to [vbs]?

VB + Data Base + WEB = ?
Hi Friends,

Is it possible to use VB over WEb with back end of SQL/Access Data Base?

If so, How to do that, can any one give outline for that ? (No need for full explanation - just need concept)

Thanks,
Saravanan.M

Data Base?
i want a button when i press it it ask for new username and password u put the password in and the user name after i press ok it saves the recored and next time open the program it remmbers the user name and password in the records so its bassicly log in thinging which i can use to register accounts and then use the existing user name pass to log in...... how can i do that so it save my records....? help plox

Help With Data Base
Hy. I want to make a program to store some informations like name, age, gender, etc. How to do this ? i need to use a data base? The informations will be save on local disk not on a server. I don`t know how to start with this .. if you have some tutorials ore examples how to start.. Thenx

Data Base
I want to connect my project with access data base I want to save something to the table and get some data from the table. What is the code for it? I want the international code which code use for great project. Could you please tell me details about it?

Thanks you
Rummy

Data Base
VB Code:
Dim newtable1 As New TableDef, fld1 As New DAO.Field, fld2 As New DAO.Fieldnewtable1.Name = "My table"fld1.Name = "Myfield1"fld2.Name = "Myfield2"fld1.Type = dbIntegerfld2.Type = dbTextnewtable1.Fields.Append fld1newtable1.Fields.Append fld2datStudent.Database.TableDefs.Append newtable1


Why doesn't this work and append a table

DB Data Base
i'm trying to make a DB for my cds
i need to store them like a tree

Types(of CD)
....|-CD#
.......|-CD Dir
...........|-CD memory
...........|-CD bio

I cant seem to find out how to do this with Microsoft Acces.
if you have Microsoft Acces could you wip up an eg. of what i'm trying to do

THanx

Data Base And DAO
Hi!

If I dont have the Microsoft DAO 3.51 Object Library control, is there another way that i can control my DB at runtime?


Thanks in advance!!

Data Base Help !
I am having a nightmare, i cant write to a database (access) and i am not understnding why ....

i have to write to an address / member file holding names and phone numbers and i cant write the new data to the file ??... any help would be Greatly appreciated !

i.e. i have 7 Txt Fields (id, Name, Phone......etc) and need them to be added to the database on click of 'save'.

i have all the txt boxes set up to link to the database columns but no luck with the Adodc1.Recordset.Update function because i'm not too sure how to use it

Copyright © 2005-08 www.BigResource.com, All rights reserved