|
Gagan.20 wrote: I am using VB6 as program and MS Access 2003 as Daabase.
I want to know that how to connect to database using VB6
what are the procedures,what is the connection string is used to connect to database.
If posible give me an example.
A few things...
1) You need to learn how to use Google
2) ConnectionStrings.com is a very good resource
3) Why are you writing a new app in VB6 now?
|
|
|
|
|
...
Blog link to be reinstated at a later date.
|
|
|
|
|
hi,
How can I find the minimum margins for a printdocument
e.PageSettings.Margins gives me the actual settings but not the absolut minimum
Jan
|
|
|
|
|
I believe minimum margins depends upon the specific printer, and if that is the case then I don't think the .NET framework would not be able to pull the minimum margin information from the printer.
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my Blog
|
|
|
|
|
Thats correct. thats why I need to know how I can find the min margins. I want to use all the space on the paper I can. so if I print on location 0,0 and the printer starts on 15,25 I will mis some text/picture.
Jan
|
|
|
|
|
not shure about this but
If you open up a printdialog window I think it contains the minimum margins off the printer, check the printersettings property and pagesettings property of the dialog.
If you don't want to display the window you can open it in the background set the correct printer simulate a OK click and get the margins like that.
|
|
|
|
|
|
once I found it that way. I also found a better way
e.PageSettings.HardMarginX
e.PageSettings.HardMarginY
and PrinterSettings.DefaultPageSettings.PrintableArea.width/height
|
|
|
|
|
Hi guys,
I'm new on this forum and this is my first time to ask a question.
I use vb.net 2005 with sql server 2000. My project has a main report with 3 sub-reports on it. I use stored procedure as my datasource.
How to pass parameter on sub-reports with "@CutOff" parameter in stored proc?
Thank you
|
|
|
|
|
Hai,
I would like to bookmark the wave file content, Input should given as text format.
eg: I have 1000 of wave (audio) files in server, if search for "codeproject" word out of 1000 files where and all "codeproject" words says bookmark those file and start play from that word. May be that word contains after 15 seconds it should start play from that word. Input should given as text format
|
|
|
|
|
Sounds like fun. Good luck, I think you will need it.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
Do you have someone transcribing and timecoding these audio files?? If not, you're going to find this extrodinarily difficult.
|
|
|
|
|
I have a datagrid and when the rows are getting displayed in the datagrid and i select any of the rows using check box and click a button the rows which i select must disappear and i want it to be done using the front end coding can anyone help me in this
|
|
|
|
|
The only way to make them disappear is to remove them from the datasource you bound the DGV to.
|
|
|
|
|
Or can u tell me how to disable those checkboxes which i have checked after button click
|
|
|
|
|
Hi,
This is the code which i have written on button click
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim bsl As New BSL
Dim item As DataGridItem
Dim chkBox As CheckBox
Dim AllocatedDate As String
Dim taskid As String
Dim ProjID As String
Dim SubmodID As String
Dim Activity As String
Dim details As String
Dim CreateBy As String
Dim AssocID As String
Dim iCapture As Integer
Dim send As String
Dim Rows As Integer
Dim dsViewHomeTask As New DataSet
Try
Dim Connstr As String = "myconnectionstring"
For Each item In dgUserhometask.Items
chkBox = CType(item.FindControl("chkbox"), CheckBox)
'chkBox = (chkBox)(dgUserhometask).(Rows[rowIndex].FindControl("chkBox"));
If (chkBox.Checked) Then
AllocatedDate = CType(item.FindControl("lblAllocDate"), Label).Text.ToString
taskid = CType(item.FindControl("lblTID"), Label).Text.ToString
ProjID = CType(item.FindControl("lblPID"), Label).Text.ToString
SubmodID = CType(item.FindControl("lblMID"), Label).Text.ToString
Activity = CType(item.FindControl("lblActivity"), Label).Text.ToString
details = CType(item.FindControl("lblSynopsis"), Label).Text.ToString
CreateBy = CType(item.FindControl("lblAllocatedBy"), Label).Text.ToString
send = "Y"
AssocID = Convert.ToString(Session.Item("Username"))
Session.Add("Task", taskid)
iCapture = bsl.UserTaskStatus(Connstr, AllocatedDate, taskid, ProjID, SubmodID, Activity, details, CreateBy, send, AssocID)
End If
Next
Catch ex As Exception
Throw ex
End Try
End Sub
can u tell me how to make the rwo which i have checked to disapper on button clcik according to the way i told how to modify the code as i dono how to do it
|
|
|
|
|
I already did. Enumerate the rows you have, check the status of the checkbox, then either create a new dataset, copying the non-checked rows to it, or remove them from the dataset the DGV is bound to.
|
|
|
|
|
Ya actually i dono how to code it so only i have sent my code can u help me how to modify the code accordingly to it
|
|
|
|
|
I have made it so i can see data when I do a print preview, but when I send it to the printer, It acts as though it looses all the rows since it only prints the header, and no data.
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs)
Handles Button1.Click
Me.printResultsPreview.Document = Me.printResults
Me.printResultsPreview.ShowDialog()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object,
ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Handles printResults.PrintPage
Dim currentTab As Integer 'Horizontal Posistion
Dim currentLine As Integer 'Verticle Posistion
Const ROW_HEIGHT As Integer = 15 'Line Height
Dim totalRows As Integer 'Total number of rows in the data grid
totalRows = Me.DataGridView1.Rows.Count
Static currentRow As Integer 'Current row in the data grid
Dim currentCell As Integer 'Current cell in the data grid
Static pageCount As Integer = 1 'Counts Number of pages
Static printedRows As Integer = 0 'Counts the number of rows per page
Const MAX_ROWS As Integer = 33 'Maximumn number of rows on a page
Dim x As Integer 'For printing the Horizontal Lines
'Reset Horz and Vert Posistion
currentLine = 10
currentTab = 25
'Print the header
e.Graphics.DrawString("| Last Update", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Food Name", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Food Group", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Amount", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Units", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
'Move down one line, and reset Horz Posistion
currentLine += ROW_HEIGHT
currentTab = 25
'Print Horizontal Line
For x = 25 To 800
e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
Next
'Move down one line and reset Horz Posistion
currentLine += ROW_HEIGHT
currentTab = 25
For printedRows = 0 To MAX_ROWS
'Leave loop if you have reached the end of the data grid
If (Me.DataGridView1.Rows(currentRow).Cells(1).Value = String.Empty) Then
Exit For
End If
'Print the data
For currentCell = 0 To 4
e.Graphics.DrawString("| " & Me.DataGridView1.Rows(currentRow).Cells(currentCell).Value, New Font("Georgia", 10), Brushes.Black, currentTab, currentLine)
currentTab += 150
Next
'Move down one line
currentLine += ROW_HEIGHT
'Print Horizontal Lines
For x = 25 To 800
e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
Next
'Move down one line, change your current row, and reset Horz Posistion
currentLine += ROW_HEIGHT
currentTab = 25
currentRow += 1
Next
'Print footer
e.Graphics.DrawString(Now.ToString("M/dd/yyyy") & " - " & Now.ToShortTimeString(), New Font("Georgia", 10), Brushes.Black, 25, 1060)
e.Graphics.DrawString("Page:" & pageCount, New Font("Georgia", 10), Brushes.Black, 750, 1060)
'Check if your at the end of a page
If (printedRows = MAX_ROWS + 1) Then
e.HasMorePages = True
pageCount += 1
Else
e.HasMorePages = False
End If
End Sub
|
|
|
|
|
You need to move your data pointer variables (e.g. Static currentRow As Integer ) outside of the PrintPage event and reset them on the BeginPrint event.
See this article on Printing[^] for more info.
|
|
|
|
|
Took me a while to figure out what you were talking about. But I got it. Since my page, and rowCount was static, it was just staying at the end of my data, so it had no data to print. It was saying "IM ALREADY AT THE END OF YOUR DATA!!!"
|
|
|
|
|
Hi all,
i wanted to ftp files to unix box in VB.net
1. Need to ftp files from windows to unix box
2. Need to create directory in unix box
3. After the file is uploaded need to check the file size
please provide me the code in vb.net
Thanks in advance
|
|
|
|
|
Search Google for "VB.NET FTP", and you'll be buried under the examples. It doesn't matter much what Operating System you use, as long as it supports the FTP-protocol.
|
|
|
|
|
naveengopinath wrote: please provide me the code in vb.net
Write you own code. CP works by helping people with their own code, not by writing it for you.
If you want it written for you, go to RentACoder.com
|
|
|
|
|
|