|
Hi there,
i'm trying to format the date.
once the user the enter the date in the textbox, i want to check whether it is in correct format or not.
so i'm using ISdate () function to check the dates and i want to check the format also . but for the format like (mm-dd-yyyy) i don't know how to check.
Pls help me to solve this problem.
Thanx in Advance.
|
|
|
|
|
textbox.text = Format(date, "mm-dd-yyyy")
Mike Lasseter
|
|
|
|
|
Hi thanx fr ur reply. Actually the date(Date Of Birth) is entered by the user and then we have to check the format. if the format is false then we have to prompt the msgbox says "Invalid format".
Is there anyway to do it.
Help me
Thanks
|
|
|
|
|
First from a user stand point I would much rather be able to enter a date in any format and have the program format the date as it wishes. As a user I don't want to have to keep up with Program A uses this date format Program B uses this format.
What I would do is
<br />
If IsDate(Text1.Text) Then<br />
Text1.Text = Format(Text1.Text, "m-d-yyyy")<br />
Else<br />
MsgBox("Invalid Date")<br />
End If<br />
But if you insist on doing what you are doing you could do the following
<br />
if text1.text <> format(text1.text, "mm-dd-yyyy") then<br />
msgbox ("Invalid Format")<br />
end if<br />
Mike Lasseter
|
|
|
|
|
Hi mike,
Thanks a lot it works.
Regards.
|
|
|
|
|
Hi everyone,
I was wondering if anyone out there knows of a way to compare a datable to another datatable in VS 2003. I would like to compare the two datatables to see if any updates were made to a datatable. Is there a better way than looping through all the records within each datatable? thanks
|
|
|
|
|
To best of my knowledge VS 2003 has no such facility, however, there are quite a few third party applications you can use to compare sql database, and some of them also let you generate script to synchronize both copies.
Sql data compare from http://red-gate.com/ is one such example.
Hope this helps.
Difficult - > Challenging, this simple replacement made me take my life little easy;)
|
|
|
|
|
Thank you Asif for your reply. I guess I will have to find another method to compare two tables.
eatwork
|
|
|
|
|
I am looking for something like this to create it in Visual basic.net. I want to include a calander and then have people be able to enter the name. can anyone maybe help me or point me to the right directions. I need to do this in visual basic.net express. you can view the old schedule by going to www.clinicalsystemsassoc.com/projects/
(i will have the link up in 1 hour from now )
|
|
|
|
|
do you need help building the project? i'm not sure i understand exactly what you mean...
|
|
|
|
|
Yes that would be great if someone could help me. I want to learn. The closet that i came to building a program was the menu i created for my home use and work. I would of course give you credit for it, if you would help me?!?!?!?!
Steve
|
|
|
|
|
let me know when you confirm your email so i can send you a private message. thanks!
|
|
|
|
|
confimed. sorry. 
|
|
|
|
|
i sent a mail to the address you gave me. did you receive it?
|
|
|
|
|
I need a vb6 code to read an excel file, determine the number of columns in the first row and transform the columns into a table field.
I want to create a table on the fly using the excel column as fields in a table and now read the remaining rows from excel file as data into the craeted table
thanks for your anticipated cooperatio
t.aransiola
|
|
|
|
|
|
Here is the code I have:
Publicly declare
Public cnnXLS As ADODB.Connection 'ADO connection to MS-Excel
This function creates an ADO connection to MS_Excel
Public Function Set_XLS_Connection(strProv As String, strDS As String) As Boolean
On Error GoTo Set_XLS_Connection_Err
Set cnnXLS = New ADODB.Connection
With cnnXLS
.Provider = strProv
.ConnectionString = "Data Source= " & strDS & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES"""
.Open
End With
If cnnXLS.State = 1 Then
Set_XLS_Connection = True
Else
Set_XLS_Connection = False
End If
Set_XLS_Connection_Exit:
Exit Function
Set_XLS_Connection_Err:
Msg = "Error in Startup module - Set_Database_Connection function. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Set_XLS_Connection = False
Resume Set_XLS_Connection_Exit
End Function
This subroutine lists all the worksheets in the selected Excel file.
Private Sub List_Excel_Worksheets(cnnXLS As ADODB.Connection)
'Purpose: Creates a list of worksheets from the selected Excel file
'Parameters: cnnXLS as an ADODB connection
'Returns: Nothing
On Error GoTo List_Excel_Worksheets_Err
Dim strSheet As String
cboWorksheet.Clear
Set rstSchema = cnnXLS.OpenSchema(adSchemaTables)
With rstSchema
Do Until .EOF
If (UCase(!TABLE_TYPE) = "ACCESS TABLE") Or (UCase(!TABLE_TYPE) = "SYSTEM TABLE") Then
.MoveNext
Else
strSheet = !TABLE_NAME
cboWorksheet.AddItem strSheet
.MoveNext
End If
Loop
End With
List_Excel_Worksheets_Exit:
On Error Resume Next
rstSchema.Close
Set rstSchema = Nothing
Exit Sub
List_Excel_Worksheets_Err:
Msg = "Error in frmTextual - List_Excel_Worksheets subroutine. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume List_Excel_Worksheets_Exit
End Sub
This subroutine writes the selected excel worksheet and places it into a FlexGrid.
Private Sub Populate_flxSource_With_Excel_Data(strWrkSht As String)
On Error GoTo Populate_flxSource_With_Excel_Data_Err
Dim I As Integer, nFlds As Integer
Dim X As Integer, Y As Integer
Dim varValue As Variant
If flxSource.Visible = False Then flxSource.Visible = True
If flxTarget.Visible = False Then flxTarget.Visible = True
Set rstXLS = New ADODB.Recordset
rstXLS.Open strWrkSht, cnnXLS, adOpenStatic, adLockOptimistic
With flxSource
.Clear
.FixedCols = 1
.FixedRows = 1
.Cols = intCols(cnnXLS, strWrkSht)
.Rows = intRows(cnnXLS, strWrkSht)
For I = .FixedRows To .Rows - 1
.TextArray(Fgi(I, 0)) = I
Next I
.ColWidth(0) = 600
.ColAlignmentFixed = flexAlignCenterCenter
'Locate the first row under the fixed row
Y = .TopRow
End With
nFlds = intFlds(cnnXLS, strWrkSht)
Call Source_Field_Hdrs(nFlds)
'Retrieve data from the excel workbook
Do While Not rstXLS.EOF
With flxSource
'Locate the first column after the fixed column
X = .LeftCol
For I = 0 To nFlds - 1
If IsE(rstXLS.Fields(I).Value) Then
varValue = Empty
Else
varValue = rstXLS.Fields(I).Value
End If
.Col = X
.Row = Y
.Text = varValue
X = X + 1
Next I
rstXLS.MoveNext
End With
Y = Y + 1
Loop
Call Target_Field_Hdrs(intRows(cnnXLS, strWrkSht), intCols(cnnXLS, strWrkSht), arryElements)
Populate_flxSource_With_Excel_Data_Exit:
On Error Resume Next
rstXLS.Close
Set rstXLS = Nothing
Exit Sub
Populate_flxSource_With_Excel_Data_Err:
Msg = "Error in frmTextual - Populate_flxSource_With_Excel_Data subroutine. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume Populate_flxSource_With_Excel_Data_Exit
End Sub
I hope this helps
Quecumber256
|
|
|
|
|
Hello,
When my combobox loads with the dataset, my textbox control shows only the first record. How can I set the code below so that as I pick a customer name from the combobox, it also shows the same customer name in my textbox?
<br />
Me.cboSelectDealer.Enabled = True<br />
Me.TblCustomerTableAdapter.Fill(Me.CustomerDataset.tblCustomer)<br />
<br />
Me.cboSelectDealer.DataSource = CustomerDataset.Tables("tblCustomer")<br />
Me.cboSelectDealer.DisplayMember = "Cust_Name"<br />
Me.cboSelectDealer.ValueMember = "ID"<br />
<br />
Me.txtCustomerName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomerDataset, "tblCustomer.Cust_Name"))
Thanks in advance,
Rashar
|
|
|
|
|
<br />
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged<br />
'show the selected customer name in a textbox<br />
TextBox1.Text = ComboBox1.Text<br />
End Sub<br />
i hope this is what you meant.
|
|
|
|
|
Almost...
My form has more than one textbox control, for example, txtCustomerName, txtAddress, txtCity, txtEmail.
At design time I can set the binding source to each control's text property as such:
txtCustomerName I would set to - TblCustomerBindingSource - Cust_Name
txtAddress I would set to - TblCustomerBindingSource - Address
txtCity I would set to - TblCustomerBindingSource - City
So all my controls would look at their respective dataset, so when I scroll through my combobox, if I picked customer A then I would see the address, city, email etc. for customer a in my textboxes...subsequently if I chose customer B, I would see info for customer B etc.
I need to set this up manually, or unless there is a way that I can have multiple bindings to a textbox control because I also need to have those controls look at another table's / bindingsource.
Thanks.
|
|
|
|
|
Hello.
I think its silly question but i expect some solution .
Is there any way to create sql sever database by using VB.NET code ? I have to create database,tables,sps and also transfer the data from one database to newly created database.
Please, if somebody have some solution then guide me in detail.
Thanks in adv.
|
|
|
|
|
Using SQL Script to Create DB, Tables, and Relationships. Then Move the data.
|
|
|
|
|
I have a series of Reports that need to run from an ASP.NET website. So I'm creating 2 reporting classes.
1. Basic Reports
2. ReportLineItem
I'll need to overload the Basic report for the additional:
a. Financial
b. Geographical
c. Comparative Cost
Type reports.
And may need to overload the ReportLineItem with more detailed field's and calculations. The scope of the reports at this time is unknown. My question is how to us inheritance or implements within theses reporting classes to help me keep them flexable.
In the end the data mined and stored within these classes will be outputed into relational XML and formated with XSL-FO to produce PDF's. Any thoughts, help, or pass experances that may keep me from making a huge mistake is what I'm looking for.
Thanks.
|
|
|
|
|
i have two identical datagrids in my winform:
in one of them i have a vertical scrollbar that has to scoll the datagrids both and put them in the same position
well i can i do it with VS2003
in class mydatagrid
**************************************
ublic Class mydatagrid
Inherits DataGrid
Public Function getPositionScoll() As Integer
Dim pt As New Integer
If Not Me.DataSource Is Nothing Then
pt = Me.VertScrollBar.Value
End If
Return pt
End Function
Public Sub setPositionScoll(ByVal pt As Integer)
If Not Me.DataSource Is Nothing Then
Me.VertScrollBar.Value = pt
End If
End Sub
end class
*************************
in my winform
Private Sub DataGrid1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.Scroll
Dim ttt As Integer = DataGrid1.getPositionScoll()
DataGrid2.setPositionScoll(ttt)
End Sub
and the datagrid2 does not move
SECOND TRY
in class mydatagrid
**************************************
ublic Class mydatagrid
Inherits DataGrid
Sub ScrollToRow(ByVal row As Integer)
If Not Me.DataSource Is Nothing Then
Me.GridVScrolled(Me, New ScrollEventArgs(ScrollEventType.LargeIncrement, row))
End If
End Sub
end class
*************
in my winform
Private Sub DataGrid1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.Scroll
DataGrid2.ScrollToRow( an integer that you want)
End Sub
**********
now datagrid1's scrollbar moves datagrid2 to the the row but it moves only at that row...
the idea is in the scroll mathod event get the point of the scroll and than take the number of the first visible row of the datagrid1 and give it to DataGrid2.ScrollToRow:
For Each c As Control In DataGrid1.Controls
If c.GetType() Is GetType(VScrollBar) Then
pt = VScrollBar.MousePosition()
End If
Next
using pt point can i do what i want????
is this the right way to do it????
are there other ways to tune the position of my two datagrid with scroll????
|
|
|
|
|
Can I load svg image into the picturebox in vb.net application? And how do I load the image from a certain location? Could someone show me the code?
Thanks
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
