Display Data! Help Please
well I am able to display my data, what I have is an access database and out of it I display data such as names and address and such. When I view the data through a listbox it isnt big enough to display all fields? Can I make it scrool or anything? also is there a way to clean it up so all data is displayed in the same way, basically so that it looks organized when I view more than one person at a time? help would be great, hope it makes sense?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
I Need Help With Data Grids (display, Add, Update && Delete) Data.
Hello pepz!
Let say, I have 4 inputted values txtFname(“First Name”), txtLname(“Last Name”), txtAge, and txtAdrs(“Address”). Of course this values are going to be save to database.
So, how am I going to display,(add), update & delete from/ to data grid.
Hope you guys understand what I mean.
Tanx in advanced
I Want To Display Data With Data Grid Object
hi evrry one
i am new in vb programming
and i want to display data from a database by the use of the datagrid object
i am able to get the data and display it in a combobox
but not with the data grid
to be more clear
in combo box
it was like this
----------->
...
..
.
Dim i
i = 0
While Not rs.EOF
Combo1.AddItem rs("ad_id"), i
rs.MoveNext
i = i + 1
Wend
...
..
.
<---------
how can i get the same data but in the datagrid
thanx in advance[color=blue][color=blue][color=blue]
Data Report Doesnt Display Data .....................why
i create a datareport with dataenvironment with criteria. This is my command in data environment1
SELECT d .receivedt, h.invs_no, h.supplier, SUM(d .subtotal), h.received, h.po_no, d .brand, d .rcvdqty, d .package, d .batchno, d .expdate, d .subtotal FROM receiveddel d, receivedhdr h WHERE (h.invs_no = ?) GROUP BY h.supplier, d .receivedt, h.invs_no, d .subtotal, h.received, h.po_no, d .brand, d .rcvdqty, d .package, d .batchno, d .expdate ORDER BY h.supplier
and i have another form for me to pass the invs_no to the command
If txtCustomer.Text <> "" Then
DataEnvironment1.rssql Trim(txtCustomer.Text)
DataReport1.Show
Else
MsgBox "Please enter a valid customer ID", vbInformation
End If
actually everything works well no error come out but the data report doesnt display anything..........is a blank report but my database does contain data what can i do please help me
Data Report/Data Environment Won't Display Last Row.
Hi, I have had this problem before and another vbcity user has also asked this question, but I can't find their question and mine wasn't answered so here it is.
If my table has 2 rows, only 1 is displayed. If the table only has 1 row, nothing is displayed. ie my last row is never displayed. Any ideas? It works fine in access. Every row shows up.
Thanks in advance.
thanks
leadfinger
http://www3.nbnet.nb.ca/gspil
How To Display Data In A Data Report
hai, i have a table called attendance which contains Student ID, Date and Attendance as its fields. I want to display the record with particular date on the data report. How can i do this, please help me in this regard. Thank You.
Display Data And Edit Data
Hi,
I want to display data from one of the table to the user with some control. The user should be given option to modify the data.And the major thing is that the length and data type of the data entered should match the table structure.What control will be best one.Batch update Option should be there.
I am using SQL Server 2000 as back end.
Best Way To Display Data...?
Hi,
I have a text file that looks something like this:
Arsenal
2; 3; 6; 7; 10; 11; 14; 15; 34; 35; 38; 39; 42; 43; 46; 47;
Leeds
2; 3; 6; 7; 10; 11; 14; 15; 50; 51; 54; 55; 58; 59; 62; 63
etc...
The numbers are representative of the slots that the teams are available to play in.
So for example, if Leeds were playing Arsenal, I would need to identify the available slots for Leeds, and then Arsenal, and if they were the same, this should leave me with a narrowed down list of slots to choose from, once the non-duplicated slots were removed. Make sense?
What would be the best way to achieve this? I want to make it as easy as possible to compare the slots. The code that I have which produces the text file above is as shown below:
Code:
Print rs("Team") 'Contains team name
If rs("Monday").Value = "Available" Then
Print #1, rs("Team"), 2; 3; 6; 7; 10; 11; 14; 15; 'slots representing monday
End If
If rs("Tuesday").Value = "Available" Then
Print #1, rs("Team"), 18; 19; 22; 23; 26; 27; 30; 31;
End If
If rs("Wednesday").Value = "Available" Then
Print #1, rs("Team"), 34; 35; 38; 39; 42; 43; 46; 47;
End If
If rs("Thursday").Value = "Available" Then
Print #1, rs("Team"), 50; 51; 54; 55; 58; 59; 62; 63
End If
Thank you for your input, I would welcome any suggestions!
MiniMe
Display Data
Hi All,
I want to make a screen wherein the user can add,delete,modify and view data......(Master tables)
i have made the necessary labels,textboxes and cmd butttons for this purpose. Suppose the user types in a textbox the value of a primary key of the table and clicks on the display button i want to the records for that particular primary key value to appear on the screen..........
for this i cud possibly do is write a connection to the database ....write a select ------ from ** where value is primary key value....(ie i have to hardcode it)
this is my doubt .......what if there is an extra column added to the table later.....then my select query wudnt give me the value of the last column.....even if i write select * i wudnt be able to display it on screen.......
for this i guess i create textboxes and labels on the fly ...but the how do i assign names to the labels on screen (from the database)????
i wud like to know if this is a valid doubt...if yes how do i go abt it...pls do say if there is a better way to do it...
Thanx,
Tina.
How Can I Display My Data?
I have an access database and I can search it, the results display in a listbox. What I want to do is be able to click on one of the results in the listbox and have the data display again in the text boxes. So then I would be able to make changes to the data and update the record? but I need help! how can I do this?
Data Display
Hey there,
I am very new to VB and have what is probably a stupid question. I have a Access 2002 DB file, and I am using it to store inventory items. What I need to have happen is for the itemtype to be displayed in a list that can be clicked on and then edited. Now, I have no idea if this is even possible, let alone if it is a smart thing to do, but this program needs to be able to be used by a little old blue haird lady, so I was hoping to have a one form for her to select the item, click an edit button and kick her to another form with the text boxes for her to edit the fields.
Does this make sense? Let me know
Thanks
Display Data In VB
Hi.
I have a .txt file which stores a long list of data, and I would like to display it all on VB in one form. Would you please tell me how to do it? I'm thinking of using DataGrid to do this, but i have very limit knowledge on using DataGrid....
Thanks a lot!
Jacob
How To Display Data
Hi,
I am Beginner to programming, i need ur help.so please help me regarding my issue,i have one screen in which there are 21 textboxes i have divided text in different different Category in frames,(Like "User-information",Contact type etc), also i created tables in SQL server and setup the keys for tables.my question is i would like to display searched user's all information in other textboxs or other form. i tried to find user in data base and i did but i am enable to display all user information.
PHP Code:
Dim NameFound As Boolean
Set cn = New ADODB.Connection
sqlqry = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=PersonInformation;Initial Catalog=RocInformation"
cn.Open sqlqry
Set rs = New ADODB.Recordset
sqlqry = "PersonInformation"
rs.Open sqlqry, cn, adOpenKeyset, adLockOptimistic, adCmdTable
Do While rs.BOF = False
If txtFirstName.Text = rs!Firstname Then
MsgBox "Name Found"
Exit Sub
Else
rs.MoveNext
End If
If rs.EOF = True Then
MsgBox "Name Not Found"
Exit Sub
End If
Loop
End Sub
Display Data
With a click in a treeview the records populate a datagrid. Each record has 3 fields; an ID, Title and length. When a record is clicked in the datagrid three
text boxes are filled with the data for editing. There are 2 areas of concern:
1. When the datagrid is clicked the first time the first record is the one that shows up in the textboxes. If the record is clicked twice the correct record is displayed in the textboxes.
2. If the record has an apostrophe, a BOF/EOF error msg appears even though there is a replace statement.
My code for the datagrid:
CODEDim sName As String
sName = datagrid1.Text
sName = Replace(datagrid1.Text, "'", "")
sSql = "SELECT TrackID, Title, Length FROM tblTracks WHERE Title = '" & sName & "'"
If rst.State = adStateOpen Then rst.Close
rst.Open sSql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
txtTrack.Text = rst.Fields("TrackID").Value & ""
txtTitle.Text = rst.Fields("Title").Value & ""
txtLength.Text = rst.Fields("Length").Value & ""
Display Data From .mdf Using VB.NET
Hello,
I'm really new at this and I'm trying to learn, but here is what I'm trying to do: Let's say that on my PC is a file called snacks.mdf. I'm trying to use VB.NET to display all of the data in snacks.mdf into a display grid. Then, if the user wants to add, modify, or delete any records, I have an update button on the form that will save the changes, if there are any. I'm absolutely clueless about even starting this project. Can someone post some sample code and instructions for me? I really appreciate it!
Thank you,
Jay
Data Display
HI,
I see. Thanks.
I got one issue. please refer to the attachment red oval portion. Actually i would like to load the main form which text field is empty. But subform i would like to remain the row and text field is empty. Can i know how to do it.
Thanks
regards,
Prisilia
What Would Be The Best Way To Display This Data?
Hi,
I have a text file that looks something like this:
Arsenal
2; 3; 6; 7; 10; 11; 14; 15; 34; 35; 38; 39; 42; 43; 46; 47;
Leeds
2; 3; 6; 7; 10; 11; 14; 15; 50; 51; 54; 55; 58; 59; 62; 63
etc...
The numbers are representative of the slots that the teams are available to play in.
So for example, if Leeds were playing Arsenal, I would need to identify the available slots for Leeds, and then Arsenal, and if they were the same, this should leave me with a narrowed down list of slots to choose from, once the non-duplicated slots were removed. Make sense?
What would be the best way to achieve this? I want to make it as easy as possible to compare the slots. The code that I have which produces the text file above is as shown below:
Code:
Print rs("Team") 'Contains team name
If rs("Monday").Value = "Available" Then
Print #1, rs("Team"), 2; 3; 6; 7; 10; 11; 14; 15; 'slots representing monday
End If
If rs("Tuesday").Value = "Available" Then
Print #1, rs("Team"), 18; 19; 22; 23; 26; 27; 30; 31;
End If
If rs("Wednesday").Value = "Available" Then
Print #1, rs("Team"), 34; 35; 38; 39; 42; 43; 46; 47;
End If
If rs("Thursday").Value = "Available" Then
Print #1, rs("Team"), 50; 51; 54; 55; 58; 59; 62; 63
End If
Thank you for your input, I would welcome any suggestions!
David
Display Bitmap Data
I am trying to print out the deciamal values of a bitmap data file
(any size, any bitdepth).
For a 3 pixel X 2 pixel bitmap image (bitdepth=24), 24 bytes are required to store the image data.
Code:
1 2 3
2 c4 c2 c3
1 c1 c2 c4
I am trying to print out the data in the following format, but for the life of me,
can't get this to work.
Anyone have any ideas?
Code:
1 (1,1)r = xxx
2 g = xxx
3 b = xxx
4 (1,2)r = xxx
5 g = xxx
6 b = xxx
7 (1,3)r = xxx
8 g = xxx
9 b = xxx
10 pdg 1 = 0
11 2 = 0
12 3 = 0
13 (2,1)r = xxx
14 g = xxx
15 b = xxx
16 (2,2)r = xxx
17 g = xxx
18 b = xxx
19 (2,3)r = xxx
20 g = xxx
21 b = xxx
22 pdg 1 = 0
23 2 = 0
24 3 = 0
Display Data From Smartcard
i need help regarding the smart card...i using acr30 usb card reader and smart card SLE4442.
i do something 55% of the small application but i fail on to display the data in the smart card...
can you help me?
Panasonic PBX Data Display
HI Friends,
I have one Panasonic PBX i want to connect it through my PC so i can save tha data in MS Access through Visual Basic programm.
Is it possible? if anyone have the idea please share with me i am also new in visual basic.
Thank You
Abdul lateef Khaleel
Nepal
How To Display Received Data (value)
Hi there, I’m new in vb6, i just wrote my first codes for my project in vb6. What I’m trying to do is to receive data from my micro controller and display it on label box.the problem is that I don’t know how to display the data I’m receiving on a label box. i have manage to open the serial port using the codes below but the codes under the “mscomm commend” seems not to work, all I’m get is “0” on label box. pls see my codes below .thank you
Private Sub Command1_Click()
If Command1 = True Then
Label2 = "state: connected"
End If
' 2400 Baud, No Parity, 8 Data Bits, 1 Stop Bit
MSComm1.Settings = "9600,N,8,1"
' Fire Rx Event Every Two Bytes
MSComm1.RThreshold = 2
' When Inputting Data, Input 0 Bytes at a time
'read everything in input buffer
MSComm1.InputLen = 0
' Open COM1
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Private Sub MSComm1_OnComm()
Dim totalvalue As Integer
Dim sData As String ' Holds our incoming data
Dim lHighByte As Long ' Holds values
'these codes below seems not to work.
' If comEvReceive Event then get data and display
If MSComm1.CommEvent = comEvReceive Then
sData = MSComm1.Input ' Get data
lHighByte = Asc(Mid$(sData, 1, 8)) ' get byte
'display data
Label7 = lHighByte
End If
End Sub
Display In Data Report
Hi,
I want to build a report using datareport in VB which should look something like this:
Name E-mail Phone
Person1 some1@someplace.com 12453
Person2 some2@someplace.com 12545
Person3 some3@someplace.com 12453
Person4 some4@someplace.com 12154
Person5 some5@someplace.com 12453
Person6 some6@someplace.com 12557
I have a set of id's that I have to pass to the report. The report should display the details depending on the id (silly isn't it). But I want to get all the display continuous and not on different pages.
Can anyone help me out with this
To Display Data From Excel In Vb
Hi all,
I am a begginer who need help from you all. I need to know how to display a column of data from a specific range in
Excel to my listbox in vb. Below is my codings:
Private Sub cmdenter_Click()
Dim XLApp As Excel.Application
Dim MyString As String
Dim DBRows As Integer
Set XLApp = New Excel.Application
XLApp.Workbooks.Open "e:issue_WK" & txtnumber.Text
MyString = XLApp.Worksheets("issues").Range("LLL").Select
Worksheets("issues").Select
With Range("LLL")
DBRows = .Rows.Count
.Offset(1, 0).Resize(DBRows - 1, .Columns.Count).Select
End With
lstdisplay.AddItem MyString
End Sub
when I run , it shows application-defined or object defined error. Can anyone pls help me.
Thank you,
Besr regards
How Should I Do This.... ? {display This Data From Access}
Let me explain what I'm trying to do; I'm making an attendence program where a list of members is load dynamicly from Acess. There can be anywhere from 0-100 members (a program-set limit). Right now it will barely fit onto the screen (800x600), and I'm trying to make it very user-friendly.
The problem is ,In your opinion, what is the best way to display this data, and have it look good and be user-friendly.
What I've thought of is:
1: detect the User's resolution and if it's too small tell them to change it (I don't realy like this option for ovious reasons)
2: somehow have the form scroll. (I'm not very comptable with scroll bars yet)
3: Create a Drop-Down menu and have the user select a range (ie. members 10-20 etc.) (This dosen't seem very user-friendly)
Any Opinions/Sugestions are VERY appriciated,
Dman8568
Display Data In Grid
can someone help me to display a large amount of data ( 500k ) in flexgrid or any grid
thax for any help..
Display Of Raw Bitmap Data....
Hi i'm new to VB and needs to write a program using VB6.0 to display a raw bitmap image. this image will be transfer into the application in the form of binary bits. (this means that i have to store the received data in some kind of memory array and somehow format it into bitmap and display it??! thats all it needs to do.) the bitmap will be 1 byte per pixel and is a greyscale image.
really hope that someone here can give me some advice on it.
Simplest Way To Display This Data
I am trying to find the simplest way to display certain data from several arrays.
I have 3 arrays which I need to display in 3 different columns. I've looked at the OLE controls and also listview, but they are kind of confusing.
I tried setting the column property on a listbox control to 2(0,1,2 = 3 columns) and then to append my data, but they just fill up sequentially and won't create long columns of data from the same array, but instead overflow and create more columns horizontally.
I've heard someone mention using a datagrid, but I couldn't find a lot of information on how to use them.
Preferably, I want to be able to copy all of the data from whatever control I end up using to display the data and paste it into an excel worksheet and have it correctly fill the cells, or if possible it would be cool if I could write the data into a worksheet in addition to displaying the data in the program itself.
Where should I go with this?
Speed Up Data Display
I am writing an app that populates a datagrid through SQL after an cmdGo button is pressed. This cmdGo executes a SQL instruction and populates a temp table. After that the user can click on an item in the datagrid and press the cmdTarifario to get all the info from the temp table using dynamic SQL SELECT and displaying it on another datagrid on form2. My problem is that this operation to get the info from form2 is taking far too long (8-9 secs), taking in consideration that the temp table is much smaller than the original table used in the first SQL.
Is there anything I can do to speed up this query and display the results in the form2.datagrid1 ?
Please have a look at the code attached.
Data Grid Display
Hey guys,
Part of our project involves having a datagrid which displays the items, description and cost of an item that a customer is purchasing. Each customer has a seperate Sale ID and the composition of each Sales ID is different. (i.e different items are being sold in different sales) How do you get the data grid empty when the form loads and then how do we display certain information when a Sales ID is entered into a field. And then to have different information in the datagrid when a different sales id is entered.
I hope that it isnt too confusing and thanks in advance for all your help
Connected, But Pls Help Me DISPLAY My Data
Hi,
I managed to successfully establish a connection to my SQL server, but I am having trouble trying to display the records in the recordset. When I click on my "Show Data" button I get error
#3709 - "The connection cannot be used to perform this operation. It is either closed or invalid in this context."
As you will see I am trying to display the recordset info in both a text box and a data grid. Neither works.
Here is my code:
--------------------------------
Dim JCN As ADODB.Connection
Dim JRS As ADODB.Recordset
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdShoData_Click()
Set DataGrid1.DataSource = JRS
Set txtSQLInfo.DataSource = JRS
If JRS.State = adStateOpen Then JRS.Close
JRS.Open "Select * FROM Players", JCN, adOpenStatic, adLockBatchOptimistic
End Sub
Private Sub Form_Load()
DatabaseName = DBaseName
Set JCN = CreateObject("ADODB.Connection")
'telling vb i'm setting up an ole
'this is the cleanest way
JCN.Provider = "sqloledb"
JCN.Properties("Data Source").Value = "sdcdbs27"
JCN.Properties("Initial Catalog").Value = DatabaseName
JCN.Properties("User ID").Value = userid
JCN.Properties("password").Value = pass
Set JRS = CreateObject("ADODB.recordset")
End Sub
-----------------------
Where am I going wrong?
thx,
Anakin
Data Display Problem
Hello all, I've been working on a problem with an access database all week, an I've had no luck. All of the tutorials I"ve seen don't work..
Here's my problem. I'm trying to do a query on an access database by searching all members of a Field: CountryName. The criteria from the search comes from a member of an array... All of the sql and concatenating doesn't seem to be working....
Basically, what I want is for a user to click a command button that is a member of a control array... this command button function passes the INDEX parameter to the criteria array...
Here's my code so far:
Private Sub Country_Click(Index As Integer)
Dim query As String
query = "SELECT * FROM Status WHERE CountryName = '" & CountryNameArray(Index) & "'"
'It is selecting all records right now...
Dim TempRecord As Recordset
Set TempRecord = db.OpenRecordset(query)
I then need to display each field of the records returned in the text boxes visible on the form. I want my data control to be able to allow the user to flip through the returned records...
How do I get data1 to obtain control over this dynamic record...? Especially when VB loads database connections first when starting the program...?
I appreciate any help that you can give me.
Data Control Display?
I have just learned how to use a data control to change info for my football pool program. Primarily the weekly schedule of games, yet I don't know how toomake the controls' text display the week # that i've switched to. I would like it to display "'Week 2" when I change to that week. What am I missing here?
Grids Display Data From A DB
Hi
was after some assistaince in regards to grids and data from a DB. I am using a Grid to display information from a MSSQL2000 DB, I have coded my grid however for some reason when i display the data from the DB it doesnt display in the Grid, but if I make the .colwidth bigger it seems to display the data.
Does anybody know why this happens and is there a way to display the data without having to display the whole string. I have attached my code
<vbscript>
Dim rownumber As Long
Dim newrow As Integer
Dim i As Integer
mshOrdSumm.Clear
mshOrdSumm.Rows = 2
mshOrdSumm.Cols = 5
With mshOrdSumm
.ColWidth(0) = 200
.TextMatrix(i, 1) = "Bundle ID"
.ColWidth(1) = 1000
.TextMatrix(i, 2) = "TCD"
.ColWidth(2) = 1000
.TextMatrix(i, 3) = "Comment"
.ColWidth(3) = 3000
.TextMatrix(i, 4) = "Type"
.ColWidth(4) = 1000
End With
newrow = 1
Do While Not rsFUOrdersSum.EOF
mshOrdSumm.TextMatrix(newrow, 1) = rsFUOrdersSum.Fields("Bundle ID") & ""
mshOrdSumm.TextMatrix(newrow, 2) = rsFUOrdersSum.Fields("TCD") & ""
mshOrdSumm.TextMatrix(newrow, 3) = rsFUOrdersSum.Fields("Comment") & ""
mshOrdSumm.TextMatrix(newrow, 4) = rsFUOrdersSum.Fields("Type") & ""
rsFUOrdersSum.MoveNext
newrow = newrow + 1
mshOrdSumm.Rows = mshOrdSumm.Rows + 1
Loop
</vbscript>
Display/Edit Data
What is the best way to display and edit the contents of a recordset with up to 500 records that includes a join on a vb6 interface?
Thanks~
How To Display Data In Report If.....
Hi everyone
I am getting records in crystal reports but it is arabic so,it doesnt display. so is there anything in crystal report to enable languages.
Please help me
waiting for reply.
Thanx in advance.
Display Data From DB To List Box?
What I am doing is using a query to get specific data from the db and then have the first and last names (each are seperate fields in db) display in the list box. I do not know how to go about doing this, please help?
DBList Won't Display Data
Hello All,
I am using a DBList to display information from a database (say it isn't so!!). However, the DBlist will not display the information I ask it to.
At design time I set these properties:
RecordSource = data (datacontrol)
ListField = MaterialName
With this it won't display anything
In run time I use this code:
Code:
Private Sub Form_Load()
Data.RecordSource = "SELECT * FROM Materials"
Data.Refresh
DBList1.RowSource = Data
DBList1.ListField = "MaterialName"
DBList1.Refresh
DBList1.ReFill
End Sub
The line in BOLD causes a type mismatch. The types are correct: RowSource requires a datacontrol and Data is a datacontrol. Also, at the time it throws the error data.recordsource = Nothing for some reason. Not sure why.
The strangest thing is that if I use another table, it works fine. The table I am using has records and has a primary key defined already. I cannot figure out what is wrong.
Thank you all for your time,
Josh
Display Data In A Combo Box....
I have like 7 different names in a database and i want to display them in a combo box so one can be selected. How can I do this?
I want to be able to modify the database table so it always displays the names that are in the table at that time? can anyone help with some code?
Get Data From Access Tho Display In VB
i want to read and write data in an access database
what i've done is this
->added a dataEnvironment control
->configured the connection to point to my mdb with jet 4.0
->added a command and configured it to use a table objet and then selected the name of my table
and i got a list under the command1 with the names of all the columns in the table, now, how can i read and write data to the db using textboxes and a 'save' command button
please tell me if i'm in the right way, any help will be very apreciated!!!!
thanks in advance
How To Display Data In MSHFlexGrid
i'm trying to display my data on MSHflexgrid. below was my "halfway" code. can someone show me how to do it?
Code:
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "database.mdb; Persist Security Info = False"
con.Open
Set rs = New ADODB.Recordset
Is This The Fastest / Best Way To Display Data?
hello all,
I wanted to know if this is the best way to display about 9,000 + songs on a listview from a database. here's my code... any advice, suggestions would be great.
Code:
Private Sub cmdSearch_Click()
On Error Resume Next
Dim rstNewSearch As ADODB.Recordset
Set rstNewSearch = New ADODB.Recordset
Text3.Enabled = True
Text3.BackColor = &HFFFFFF
Dim strmp3name As String
ListViewMP3.ListItems.Clear
IsSearchResult = True
rstNewSearch.Open "SELECT DISTINCTROW * FROM Songs ORDER BY Song ASC", cnnKerb, adOpenForwardOnly, adLockReadOnly
tmpChangecolors = fileGetFromIni("Settings", "ChangeColors", App.Path + "settings.ini")
If tmpChangecolors = "" Then
tmpChangecolors = "0"
Else
End If
If tmpChangecolors = 1 Then
Do While Not rstNewSearch.EOF
strmp3name = rstNewSearch!song
ListViewMP3.ListItems.Add , , strmp3name
ListViewMP3.ListItems(ListViewMP3.ListItems.Count).SubItems(1) = rstNewSearch!IDFolder
ListViewMP3.ListItems(ListViewMP3.ListItems.Count).SubItems(2) = rstNewSearch!LastPlayed
ListViewMP3.ListItems(ListViewMP3.ListItems.Count).SubItems(3) = rstNewSearch!LastPlayedDate
ChangeColors
rstNewSearch.MoveNext
Loop
ListViewMP3.Refresh
Else
Do While Not rstNewSearch.EOF
strmp3name = rstNewSearch!song
ListViewMP3.ListItems.Add , , strmp3name
ListViewMP3.ListItems(ListViewMP3.ListItems.Count).SubItems(1) = rstNewSearch!IDFolder
ListViewMP3.ListItems(ListViewMP3.ListItems.Count).SubItems(2) = rstNewSearch!LastPlayed
ListViewMP3.ListItems(ListViewMP3.ListItems.Count).SubItems(3) = rstNewSearch!LastPlayedDate
rstNewSearch.MoveNext
Loop
ListViewMP3.Refresh
End If
rstNewSearch.Close
Set rstNewSearch = Nothing
End Sub
Thank you guys in advance.
VB6 Display Label, Using Data In Sql!
Good day All,
I have a SQL database, which I manage data of the residents that are booked into and out of a hostel.
I have greated a procedure to call in any of the search criteria.
It is a label(fixed text) that must appear when the resident was there in the past.
Please help me.
Thanks
'To display a label if a resident was at the campus before
Public Sub DisplayPreVisit()
Dim PreVisit As Boolean
Dim rsPreVisit As New ADODB.Recordset
Set rsPreVisit = New ADODB.Recordset
rsPreVisit.Open "Select * From Residents Where [Id Number] = '" & txtIDNumber.Text & "'", cn, adOpenForwardOnly
If PreVisit = True Then
txtIDNumber.Text = rsPreVisit![ID Number]
PreVisit = rsPreVisit![ID Number]
lblPreVisit.Visible = True
rsPreVisit.Close
End If
'lblPreVisit.Visible = True
Set rsPreVisit = Nothing
End Sub
Display Data In ComboBox When .....
I have comboBoxes on a Form Properply Populated and working. Then I have two Scrolling Buttons on form Namely Next and Previous which purposly show next or previous record on the form .
The problem is that when I press any of the these record scrolling buttons all the data in the textboxes is displayed but the related data in that roecrd for combobox is not displayed. they are presented Blank.
No Data Display In DataReport
Hi:
I'm using Data, DataEnviroment and Datareport to create a simple reporting application.
I use Data for filling all data and then using DataReport to Display and Print Report through
DataEnviroment.
I had this Problem, Report Show Nothing. But if I Load DataEnviroment and Delay for a second
using a Timer then display Report, I had the Result. Which I think is not an appropriate
way. Can Some one tell me why?
Thanks
Display Two Arrays Of Data
What is the code to display two arrays of data? Is it possible?
I have MSChart.chartdata = arrData & values
that didnt work
ANy ideas?
THanks
Display Data In The SysTray
I currently have a small project that displays some data in a label. Is it possible to display that data in the SysTray (not in a balloon or tooltip)? I know how to display an icon in the systray so I'd like to be able to modify that technique.
Display Data In MSFlexgrid
hi all i have one problem.
I have to enter several data and display it on MSFlexgrid..i have textbox for Description.I set this textbox to multiline.Once i 've finish the first line, i will press Enter to go to the next line.
e.g:My Name is
Jack
123
But Description will displayed as My Name is||Jack||123 on MSFlexgrid
how can i avoid this ||
Thanks in advance
Delayed Data Display --- Pls Help....
hi guys,
just wanna ask, i dont know if its with the vb or with the crystal reports.
i have a report that have to update first one table before displaying its contents in the crystal reports.. why does it has some delays.. i have to put a pause time of at least one second after the updating of table before displaying the report otherwise there will be no data displayed in the report.
i am using msaccess as my backend database..
thanks,
alexis
|
TRACKER
