Visual Basic :: Data Type

SQL Server - The Conversion Of A Char Data Type To A Datetime Data Type Resulted.....
Hi All

I have developed an application with vb6.0 and sql server 2000 database and working well on my desktop.

While client saving records in db, sometimes they are getting following error.

"The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value."

I'm using ADOs and code like this...

rstCustomer("joindate") = mskJoinDate
rstCustomer("jointime") = mskJoinTime
rstCustomer.Update

' Here mskJoinDate is maskedit control, contains date in dd/mm/yyyy format only.

' Here mskJoinTime is maskedit control, contains Time in hh:mm format only.

' Both are datetime fields in database.

' These two fields won't contain any other data because I have done perfect validation before assign values to recordset.

Anybody have idea about my problem? Please help me to solve this.

Thanks in advance
Pradeep

'The Conversion Of A Char Data Type To A Datetime Data Type Resulted In An Out-of-ran
Hi,

I am writing a SQl query in visual basic by startdate and end date. It works fine in SQL server and Query Analyser but when query comes into visual basic it error and the message is 'The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.'

The code:

declare @cMonth int, @year varchar(10), @first_sDate datetime, @first_eDate datetime, @Second_sDate datetime, @Second_eDate datetime
set @cMonth = datepart(month, getdate())
set @year = datepart(year, getdate())
set @first_sDate = @year + '-01-01' + ' 00:00:01'
set @first_eDate = @year + '-06-30' + ' 11:59:59'
set @Second_sDate = @year + '-07-01' + ' 00:00:01'
set @Second_eDate = @year + '-12-31' + ' 11:59:59'

if @cMonth <= 6
begin
select *
from pub
where created_date BETWEEN @first_sDate and @first_eDate
end
else
begin
select *
from pub
where created_date BETWEEN @second_sDate and @second_eDate
end

In here two sets of data need to represent first six month and second six month.

how do change varchar to datetime? I tried convert but didnot work. Any body can help with the code? The error caused only in visual basic.

Many Thanks

Bravo

Type Mismatch...Data Type Vs. Host Data Type?
I keep receiving the "Type mismatch" error, and I think it stems from several fields containing dates which I am trying to update into a MS Access database. What I am trying to determine is what would be the proper settings for the "Data Type" and "Host Data Type", under the Parameters tab in my Command properties? The format I am hoping to achieve is mm/dd/yyyy. (This is already correctly set in my Regional Settings.) I hope this makes sense...I have been searching the forums and haven't found any descriptions yet of the various options for these two settings.

Convert Long Data Type To Integer Data Type
I am trying to convert an array from a long data type to an integer data type. When I use the Cint() function I am getting an overflow error. Is there a way around this? Basically what I am trying to do is to convert two successive 16 bit representations (stored as a long) number into a floating point using the MoveMemory API. The .ReadResults is an OCX defined function that reads MyLongData(j) from Memory and stores into a long data type.

Code:
Dim MyIntData(2) As Integer
Dim MyLongData(2) As Long

Dim fValue As Single
Dim j As Integer

For j = 0 To 1

MyStatus = MbMasterV71.ReadResults(hConnect, Slave, Cmd, RegStart + j, MyLongData(j))

Next j

MyIntData(0) = CInt(MyLongData(0))

CopyMemory fValue, MyIntData(0), 4

Converting ADO Data Type To DAO Field Data Type
friends
i am getting the datatype of the field from the database, but i am unable to convert to ADO data type to DAO field data type is it is possible is there any functions for it in VB

VBA Data Type For SQL Server 2000 Int Data Type
Can someone please refresh my memory?

If I have a SQL Server int data type, should I use a Long data type in VBA?

------------------------------------------------------------------------------------------------
Put your PC to good work at vbCity at world community grid and join Team vbCity.
2,669,763 3,325,308 points and ranked 1,195 1,149 as of March 8 May 23, 2008!
------------------------------------------------------------------------------------------------

Edited by - Geof on 7/2/2007 8:33:10 AM

How To Dynamically Change A Data Type Of A Variable From One User Defined Type To Another
I have a situation like this. I want to declare a variable of a user
defined type that changes dynamically.
Like i have a user defined type called type1 and another called type2.
And i use

DIM var1 as type1

At later point of time i want the same variable to be declared to
type2. Use of REDIM is for arrays only and not for user defined types.
Is there any solution? Your suggestions would be of great help to me

Bye
Tej

Type-declaration Character Does Not Match Declared Data Type
Type-declaration character does not match declared data type?
I don`t get it
This error message appears and Left$ is marked in the code, I guess it has something to do with types, but what?
Please help

Code:
Open Sti & "DeaktiverteDager.txt" For Input As #1
While Not EOF(1)
Line Input #1, LinjeITekstFil
LinjeLengde = Len(LinjeITekstFil)
RestAvLinje = LinjeLengde - 2

If Left$(LinjeITekstFil, 1) = Left$(label10.caption) Then
For i = 0 To 4
If Mid$(LinjeITekstFil, 3, RestAvLinje) = Label3(i).Caption Then
Label3(i).Visible = False
Label5(i).Visible = False
Text1(i).Visible = False
Text2(i).Visible = False
Command1(i).Visible = False
Command2(i).Visible = False
List1(i).Visible = False
List2(i).Visible = False
End If
Next
Wend
Close #1

Type-declaration Character Does Not Match Declared Data Type
I am getting compiler error "type-declaration character does not match declared data type" . It's highlighting Left$
LVGetItemText = Left$(objItem.Text, nRet)

Derclarations are as below.
VB Code:
Private Type LV_ITEM Mask As Long Index As Long SubItem As Long State As Long StateMask As Long Text As String TextMax As Long Icon As Long Param As Long Indent As LongEnd Type Public Function LVGetItemText(lParam As Long, hwnd As Long) As String Dim objItem As LV_ITEM Dim nRet As Long 'some code If nRet Then LVGetItemText = Left$(objItem.Text, nRet) End Ifexit function

SQL Error: Char Data Type Conversion To Datetime Data Type Error
I created an application which, in one instance, queries an
SQL Server 7 table based on a date entered.
I have installed it on 4 machines (one NT, two 98 & one 95).
It works fine on all but one of the 98 machines.

On this !one! machine I receive the following error:
Error 2147217913 was generated by Microsoft OLE DB provider
for SQL Server The conversion of a char data type to a
datetime data type resulted in an out-of-range datetime
value.

I get the date from a datepicker with the format
"dd/MMM/yyy HH:mm:ss"

Help!

Thanks in advance

Vb Data Type Data Type Question
I have a parameter declared as a long in one of my functions...someone tried to pass an integer to it and got a type mismatch error? Can anyone explain the reason that would occur?

Flexgrid Data - Move Row Automatically As Data Type In Textbox
Dear All,

I have hundered of records in Flexgrid & find a particular record is dififcult & if i want to fiind out particulart record from second column so what i want that in one text box as i type the row which have that data move top or move up.

Pls. help me.

Regards
Bright18

Determine Variant Data Type (wrt Hard Data Types)
Hi,

I am using a variant parameter in a function to simplify my UI for a control. When that funciton is called, the variant parameter will either be a string or a long. I need to determine which has been passed.

(One problem is that a string argument can begin with a number, so that rules out using the VAL function.)
(Since the argument is not an object, I cannot use the IS operator.)

How can I determine the data type of the variant within the function?

Cheers,
Nap.

Can U Say How To Set The Precession As 1 To A "singel" Type Data Type
Hi all!
i want to set the precession of a "single" variable to 1.. is is possible in v.b 6.0? if so , kindly tell me.

egg:
dim x as single
x=4.01234
msgbox(x) ' x shole be 4.0 only ......not 4.01234

so i want to round this.. how it is possible.......

thanks in advance
regards:
raghunadhs

Appending Data To A Data Type Object
Hi,
I've created a Data control which refrences to an Excel sheet.

I'm trying to append data to this sheet using the 'AddNew' method, and then using the Data1.Recordset.Fields.Append method, but for some reason it fails...

can someone please post here a code snippest to do it?

The Excel sheet is a blank one, so i need to append the fields at least at the first time.

Thanks,
Arilou

(X,Y) Data Type
i need to return an array from a class, and i am curious if thier are any built in vb types that have an x and y value that could be used for array declaration

or does someone have a better idea?

Get Data Type
I am embarrassed to ask this but I cannot for the life of me remember the name of the simple command which gives the data type of a variable! I have spent about an hour on the web but with no success. Anybody help?

Data Type
I've been given a DLL that contains a method, which I need to call from my VB code. The documentation provides the following information:

Name: GetAutoEvalDLLVersion
Parameters: 1 CHAR_8 array that will be filled with the version and build information in the format of M.mm.B. These are the major version (M), the minor version to two decimal places (mm) and the build number (B).

Return Value: Either 1 (Okay) or 0 (Null Structure).

I have created a new VB project and entered the code as below.

Private Declare Function GetAutoEvalDLLVersion Lib "AutoEval.dll" (strBuildNo As String) As Integer

Private Sub Form_Load()
Dim x As Integer
x = GetAutoEvalDLLVersion ("4.10.9")
End

The above causing VB to error and exit. Would somebody be kind enough to tell me where I am going wrong? I believe it is to do with the way I have declared the argument or the value I am passing in. The documentation contains the following explaining the data types that should be used....

Strings are specified as CHAR_8 x Y where Y indicates the length of the string in characters. Strings must consist of a block of Y CHAR_8's (bytes) arranged consecutively in memory, where each byte contains the ASCII value of a character. The byte in memory following the last character must contain the value zero. Thus a string specified as CHAR_8 x 12 in this document will contain 13 bytes of stroage in the data structure -12 bytes for the actual string and 1 byte for this zero byte. For all instances where a value is unknown, the variable should contain the value '-1'. In a string field, the first character should be entered as '-', the second as '1' and the third should contain the ascii value, 0.

Your help would be welcomed with open arms! Many Thanks

Data Type
what is the data type for this?

Code:
Dim RetVal

My Data Type
I want to make my own data type i think.

Well..

I got a function with one argument/parameter, and I want the argument/parameter to only be certain things.

Here's a bogus example:

Code:
Private Type MySelection 'Maybe Enum?
Option1 = "A"
Option2 = "B"
Option3 = "C"
End Type

Private Function MyFunction(YourOption As MySelection) As Boolean
Select Case YourOption
Case "A" or Option1
'Do something
Case "B" or Option2

Case "C" or Option3

End Select

End Function

Bit Data Type Help
Is it possible to make a bit data type in vb and how can i do it?

Data Type
So can anyone tell me what is an early-bound data type?
And how do you declare functions/variables using it?

Dazza.

What Data Type To Use
If, i would like to allow the administrator or Super User to set the user's right to access certain functions in the application, What data type should i use for the User Right. For example, Allow Delete, Allow Edit and etc.

Data Type
Hello everybody,

how can i change the data type of the property textbox.selstart from long to single???
Is it possible to do that?

thanks
Mulder

What Data Type?
Hi, i'm new here and new to VB.

Is there any code to allow you to only enter a certain type of data into a text box, like in MS Access where you can set cells only to accept numeric data, for example?

Or at least to let you find out what data is in a box

Data Type
Iam trying to build a query that will get alll the movie in a data base from a specefic year of publication, The problem is, When I run it, VB give me an error of data type (80047e07) here is my code

Private Sub Command1_Click()
'Efface les resultats précédants
lstresult.Clear

'Déclaration des variables
Dim I As Integer
Dim annelow As Double
Dim anneup As Double

'Vérifie quel année l'utilisateur a choisis
For I = 0 To 7
If optanne(I).Value = True Then
Select Case I
Case 0
annelow = 1980
Case 1
annelow = 1981
anneup = 1986
Case 2
annelow = 1987
anneup = 1992
Case 3
annelow = 1993
anneup = 1996
Case 4
annelow = 1997
anneup = 1999
Case 5
annelow = 2000
anneup = 2001
Case 6
anneup = 2002
Case 7
anneup = 2003
End Select

'Ouvre une connection avec la base de donné et cherche les éléments
Call connection

Ssql = "SELECT Titre, parution FROM collvid WHERE parution BETWEEN '1981' AND '1987' "
Set rec = New ADODB.Recordset
rec.Open Ssql, con, adOpenKeyset, adLockOptimistic, adCmdText
End If
Next I
'Vérifie si un résultat a été trouvé
If Not rec.EOF = False Then
MsgBox "Aucun résultat trouvable", vbCritical
Exit Sub
End If

'affiche le résultat
Do Until rec.EOF
lstresult.AddItem rec("Titre")
rec.MoveNext
Loop
rec.Close
con.Close

Set rec = Nothing
lstresult.SetFocus

End Sub

THe parution field is set to numeric in Acces 2000

The for all answer
Phil

Data Type
hi

i need to the data type for a check box i think because everytime i try to run the program an error appears with Len highlighted:

part of code:

dbcommand.Parameters.Append dbcommand.CreateParameter("@Wednesday", adVarChar, adParamInput, Len(CheckWED), CheckWED)

dbcommand.Parameters.Append dbcommand.CreateParameter("@Thursday", adVarChar, adParamInput, Len(CheckTHURS), CheckTHURS)

dbcommand.Parameters.Append dbcommand.CreateParameter("@Friday", adVarChar, adParamInput, Len(CheckFRI), CheckFRI)

Data Type Help
Set prmNotes = .CreateParameter("@Notes_13", ???, adParamInput, 16, dsbox.Text)

i have a filed in my database which is of type text..what type of data type should i be putting in the above...thanx

Data Type
i have a table. i want to fetch a field data type. for ex: if the table contains 10 fields. i need to fetch the datatype of a 10 fields. i am using ado. any one help me plz. urgent

Ragards
rajesh

Data Type
creating something inside of excel, and i dont do too much programming in excel. but what data type should i be using if i want to capture dollar totals from various sheets and total it all up on one sheet. Is double sufficient?

jon

Data Type In SQL
How to store a Image data type in variable ? i.e I have a field Data and its data type is Image in SQL server. I want to pull out that field from db and store in a variable to insert it in another table. But I get error from this code. Anyone knows how to fix it

Dim imgData as Image
StrSQL = "SELECT * ..."
While not rs.EOF
If Not IsNull(rs("Data")) Or Len(rs("Data")) <> 0 Then
imgData = Trim(rs!Data)
Else
imgData = ""
End If
......
WEnd

SQL Data Type
What is the difference between the data type "Text" and "Varchar"?

Which Data Type I Can Use?
I disigned a small program for excel, see below:

dim batchtype as string

batchtype = cells("u5").value

the column u5 's data type is text. like "nomal"

but i got an error message " data type is not matched'

Please help me! I don't know which data type can be used or how to set the content of column to this variable?

Data Type For VB Vs VC++
Does any one where can I get the data type equalvalent between VB and VC++?
Or anyone can list it for me?

like:

String (VB) = Char (VC++)
Long (VB) = int (VC++)
Boolean (VB) = bool (VC++)

& etc...

Data Type
How can you reate a data type, such as Form or TextBox?
example:

Code:
Dim Object_To_Create As myObjectType
Set Object_To_Create As New myObjectType
Object_To_Create.Show

This data type should be a kind of ocx. Any ideas?

Data Type Help
Hi,
I have in Module
Public Type UserRecord ' Create user-defined type.

Data1 As String * 10
Data2 As String * 1
Mytest1 As integer
My1 as boolean
End Type

In My Procedure:

dim Myrec as userrec

1) how can i address the UserRecord as ONE STRING?
2) How can i clear UserRecord in 1 command or move data to the record as 1 field like Userrecore = text1.text or Myrec = text2.text ?

Regards

Yes/No Data Type
I used the visual data mgr to build my dbase (access). If im not mistaken this VDM uses an old version of MSAccess, is there a way that i can use a Yes/No data type that i can assign to one of my fields (checkbox on my form?)?

Help please....

Data Type: ADO/SQL/VB
hi, stupid question here, tell me if i'm wrong:

The following are SQL Server data type:
VarChar
Char
NChar
NVarChar
NText
Money
Int
Float
Image
Bit
...etc

The following are ADO Data type:
adVarChar
adinteger
adDate
...etc

The following are VB Data type:
integer
String
Char
Double
Single
Date
...etc

Thanx

Data Type
What is "data type conversion error ", I have this message in my program ?

No Data Of Requested Type - ****Help!?****
Hi,

I recently changed my menu graphic (in my game) I tried logging into the game and it said "No data of requested type".

Changing my menu graphic may not be the problem. The game goes to a website to retrieve a ip to connect to but always returns with "No data of requested type".

Any help would be appreciated!! Please?

Change Data Type
Hi all
I have a Access 97 table for which i need to change the datatype from text to number...I tried using code to do it but get the error 3219:Invalid Operation.

Is there any way I can do this? Cannot do it via "Alter table" statment either...

Code:
Public Sub ChangeColumnType()
Dim db As DAO.Database
Dim tbl As DAO.TableDef

Set db = CurrentDb
Set tbl = db.TableDefs("role_temp")
tbl.Fields("final").Type = dbBigInt

Set tbl = Nothing
Set db = Nothing
End Sub

Looping Through Own Data Type
Hello, I have created my own data type as follows:

Code:
Private Type DiscoveryClass
CPUMHz As String
CPUType As String
Domain As String
GCard As String
HD_C_Capa As String
HD_D_Capa As String
IP As String
MAC As String
Model As String
OS As String
OSSP As String
RAM As String
Serial As String
User As String
End Type
What I now wish to do is loop through the data type, submitting each variable in the data type to the same function. Is there an easy way of doing this, or do I have to access each variable in turn?

Thanks,
Swiss

On Double Data Type
Hi! I'm using double data types and I was wondering how I could round off my double value to 3 decimal places?

Code:
dblValue = 25.3333333333 ---> dblValue = 25.333
thanks! ~_^

Data Type Format
Sorry everyone I cannot seem to get this simple issue solved. Here is what I want to do.

Format a data type, integer, to a specific length, example:

intData = "0600"

then I want to add 1 to it, i.e.:

intData = intData + 1 (or 0001)...... to give me "0601"

I am grabbing a job number from a database, 0600 and want to add a new record and auto assign job number 0601.

I keep getting 601 instead of 0600, i need to preserve 4 digit length.

Any ideas?

Data Type Mismatch
In debuggin this code I get a type mismatch error on "teststr" which is declared as a string. I first had to add "()" because it said it expected an array. Can anyone tell me what is wrong? Thanks. Here is the code:

Private Sub cmdOK_Click()

Dim sFile As String, tFile As String
Dim i As Long, xFile As String
Dim xs As String, xFld As String
Dim TargetDate As Date
Dim TestDate As Date
Dim TestMonth As Integer
Dim TestDay As Integer
Dim TestYear As Integer
Dim TestStr() As String
Dim X As Integer
Dim Y As Integer
Dim z As Integer
Dim rsTest As RecordSet

If pc.Visible Then
pc.Visible = False
pc.ZOrder 1
Exit Sub
End If

cmdOK.Enabled = False
cmdCancel.Enabled = False

Me.MousePointer = 11
DoEvents

Dim mySQL As String

mySQL = "SELECT ServDistr.dstDate FROM ServDistr WHERE ServDistr.coNum = " & comp

Set rsTest = db.OpenRecordset(mySQL, dbOpenDynaset)

rsTest.MoveLast

Do While Not rsTest.BOF
TestStr = rsTest!dstDate
X = InStr(TestStr, "/")
Y = InStr(X + 1, TestStr, "/")
z = Y - X
TestMonth = Val(Left(TestStr(X - 1)))
TestDay = Val(Mid(TestStr, X + 1, z - 1))
TestYear = Right(TestStr, 4) '<--This assumes your year is always 4-characters, if not you'll need to modify.

TestDate = DateSerial(TestYear, TestMonth, TestDay)

If TestDate < TargetDate Then

db.Execute "DELETE * FROM " & ServDistr & " WHERE (" & TestDate & _
")<#" & DTP.Value & "# And coNum=" & comp, dbFailOnError

End If
rsTest.MovePrevious
Loop

Error: 64k Max Data For Type
In my declarations for a module I have a few different Type calls that declare my variables:

Code:
Public Type TLVERTEX
X As Single
Y As Single
z As Single
rhw As Single
Color As Long
Specular As Long
tu As Single
tv As Single
End Type

Public Type Composition
TrStrip(0 To 3) As TLVERTEX
ColorTR As Long
ColorTL As Long
ColorBR As Long
ColorBL As Long
Color As Long
End Type

Public Type DXTiles
Public ListDx(500,500) as Composition
End Type

Public DXTile(100) as DxTiles
For some awkward reason when this code runs it returns an error that I can't surpass the 64k Data Max. Well, I know there is ALWAYS a way around with programming, so can someone help me? I may not be utilizing all the tools I have to make a different solution. Basically these calls make a tile map that is 500,500, and then the last call tells the game that it has 100 layers. Erm... Yea..

Thanks for help...
~SpiralEdge

Data Variable Type?
I've been declaring all the data variables in my program as single and I am starting to get alot of errors creeping in due to the amount of decimal places that the PC is working with. Is there any way I can declare a data variable type that will only store the variables to 3 or 4 decimal places, I do not want to have to keep truncating the variables every time a calculation is made.

Thanks.