December 17, 2015, 7:53 am
I'm trying to piece together a SQL statement that joins two tables and creates a recordset based on a name. The name is stored in a variable called
strAuthor but I can't get my SELECT statement to put the name in quotes. Here is my SQL statement:
Code:
"SELECT BOOK_SET_ASSOCIATIONS.ISBN, BOOKS.AUTHOR, BOOKS.BOOK_SET_ID" & _
"FROM BOOK_SET_ASSOCIATIONS INNER JOIN BOOKS ON BOOK_SET_ASSOCIATIONS.ISBN = BOOKS.ISBN" & _
"Where (((BOOKS.AUTHOR) = " & strAuthor & "))" & _
"ORDER BY BOOKS.BOOK_SET_ID"
When I execute my program it gets a runtime error 3075 syntax error as shown in the following attachment:
Error 3075 Sql Syntax.doc
As you can see in the error message, the Where clause is being converted to:
Code:
"Where (((BOOKS.AUTHOR) = Robert James Waller))
Instead of:
Code:
"Where (((BOOKS.AUTHOR) = "Robert James Waller"))
How do I modify my original SELECT statement shown above to get the necessary quotes around
strAuthor? Thank you in advance.
↧
December 17, 2015, 8:48 am
Hi
I have used this class system before without a problem and I keep looking at it and cannot see my error but I get Unknown ADODB error ADO
could you please tell me what I have done wrong please
Code:
VB6
Option Explicit
'clsTitles - wraps up Table. By keeping the
'interface consistent it should be possible to move the class
'to a point at some other data source, such as RDO ResultTest,
'on a flat file, without the users of the class ever noticing.
Public Event DataChange()
'Public members to implement properties
'for Titles DB
Public strName As String
Public strNum1 As String
Public strNum2 As String
Public strNum3 As String
'Public connection to Database
'and the recordset
Public strConn As New ADODB.Connection 'My Connection
Public myRs As New ADODB.Recordset 'My Recordset
Public strSQL As String 'My Command
Public Sub Class_Initialize()
'When an instance of the class is created, we want to
'connect to the Database and open up the Database Table.
'Set,describe,and open the connection to the database
'ReDim strMNum(1 To 2)
'ReDim strWNum(1 To 2)
'***************Declaration*************
Set frmTest.dgControl.DataSource = Nothing
'***************Connection**************
dbPath = "E:\Program Files\Microsoft Visual Studio\VB98\Ron Files\Class Example"
Set strConn = New ADODB.Connection
strConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & "\Telephone.mdb"
strConn.CursorLocation = adUseClient
' Debug.Print App.Path
' Set and Define Command
strSQL = "SELECT * FROM Names ORDER BY LastName"
' Set and Define Recordset
With frmTest
.adoControl.ConnectionString = strConn
.adoControl.RecordSource = strSQL
Set .dgControl.DataSource = .adoControl
Debug.Print dbPath
Debug.Print strSQL
Debug.Print strConn
End With
Set Me.myRs = New ADODB.Recordset
With Me.myRs
Set .ActiveConnection = strConn
.CursorType = adOpenStatic
.Source = strSQL
' .Open
End With
' Add columns to the Recordset
With frmTest.dgControl
.Columns.Add 2
strName = VBA.vbNullString & .Columns(0)
strNum1 = VBA.vbNullString & .Columns(1)
strNum2 = VBA.vbNullString & .Columns(2)
' strNum3 = VBA.vbNullString & .Columns(3)
End With
'*********************************************
'Clean up after you have finished
myRs.Close
Set myRs = Nothing
strConn.Close
Set strConn = Nothing
End Sub
↧
↧
December 17, 2015, 9:16 am
hi
I'd like to know if there's a way to Manage VB6 Error/Crash.
I never worried about Errors , so it's the first time I am dealing with them.
Is there a way, when an Error arise, to Call a specific Procedure so that it can manage current data, and Know where error happened (which Sub/Function) ?
So , when a user encounter an Error, it can have information about which Sub/Function produced it (and mabye some extra info)
Maybe I should put on Every Sub/Function a On Error "Call ErrorManager-Sub"
Any suggegtion is wellcome!
EDIT
Here I found some information ....
↧
December 17, 2015, 2:48 pm
Hello
I'm using vb6 and access
with this query I'm getting this error
impossible to use this connection Its either closed or invalid in this context ...
Code:
Set RS = New ADODB.Recordset
With RS
.CursorLocation = adUseClient
RS.Open "select * from T1 inner join T2 on T1.Id = T2.num where datt >= #" & _
Format(DTPicker1.Value, "mm/dd/yyyy") & "# and datt <= #" & _
Format(DTPicker2.Value, "mm/dd/yyyy") & "#", DB, adOpenStatic, adLockOptimistic
Thanks a lot
↧
December 17, 2015, 4:57 pm
Hey, (using VB6)
here I made a project, and I import an exe file into the ".res", but someone managed to steal files RES me, how do I protect ".res" in order not to be on crack?
i hate cracker :mad:
↧
↧
December 17, 2015, 2:48 pm
Hello
I'm using vb6 and access
with this query I'm getting this error
impossible to use this connection Its either closed or invalid in this context ...
Code:
Set RS = New ADODB.Recordset
With RS
.CursorLocation = adUseClient
RS.Open "select * from T1 inner join T2 on T1.Id = T2.num where datt >= #" & _
Format(DTPicker1.Value, "mm/dd/yyyy") & "# and datt <= #" & _
Format(DTPicker2.Value, "mm/dd/yyyy") & "#", DB, adOpenStatic, adLockOptimistic
Thanks a lot
↧
December 17, 2015, 5:05 pm
Hi I'm a newbie with programming.
Im using VB 6.0 and my database is SQL Server 2005.
What I want is to insert into my database the values that I inputted on flexgrid.
Here's my Code:
With poFlexGrid
For i = 1 To .Rows - 1
cn.Execute "INSERT into tbl_POinfo VALUES('" & txtPONumber.Text & "'," & _
" '" & cboCategory.Text & "','" & DTPODate.Value & "','" & .TextMatrix(i, 1) & "', " & _
" " & CDbl(.TextMatrix(i, 2)) & "," & CDbl(.TextMatrix(i, 3)) & ",'" & .TextMatrix(i, 4) & "', " & _
" " & CDbl(.TextMatrix(i, 5)) & ",'" & .TextMatrix(i, 6) & "')"
Next
End With
But I got an error:
Please tell me what part Im wrong :(
↧
December 17, 2015, 6:47 pm
I downloaded a C++ trial. Was tempted to buy it, figure sooner or later a switch will have to be made since I'll never be able to get VB6 if something happens to that CD.
Wow, try to get a label to say "Hello World" in the code..... In VB6 Label1.Caption = "Hello World"
OK, now try it in C++. I gave up after looking online for 45 minutes.
Thing is, VB6 is pretty dang good. And it works great for what I do. But, there are new techniques out there. Should a person make a jump or not.
I've already learned a lot about VB6. Might take some thinking or asking questions on here, but I get it done and the code ends up stable. Switching is like starting over. Be looking at unstable code, hours of head scratching, and a computer going through the window.
↧
December 17, 2015, 6:59 pm
Hello,
I am using FLEXGRID on my form.
It is not decided that how many rows of data user will enter?
So can I add, delete any row at run time???
CAN ANYBODY HELP ME ? HOW TO ADD and DELETE ROW TO GRID at runtime? :(
↧
↧
December 17, 2015, 8:16 pm
Hi all. Me and a partner of mine wrote both a free & commercial multi-threaded network scanner written entirely in Classic VB and I'm looking for a good report control for a future version, commercial or free, it doesn't matter. I can't seem to find anything decent, so I thought I'd ask here. I use iGrid for the data grids, but I'm looking for printable reports, like Crystal Reports, but not Crystal Reports. I'm pretty sure they don't still offer a Classic VB control anymore anyway.
Here's a screenshot in case anyone cares to see that:
http://bit.ly/1Pa4GfA
Be gentle. And thanks!
↧
December 18, 2015, 2:03 am
Hi all
i want to read data in database and show it in form.there are 3 column in my table: auto_id, num, status .also there are 10 chekbox as array in form.
there are 10 records in table . some records in table turns value to true.
i want if Status field in table was tick mark, the same checkbox in form has tikmark.
in my sample that i attached :
if num 7 status = true ===> in form chName(7).value=true
in my sample code works good but condition dosenot work.
please take a look at my sample and trim it.
sorry for my poor english
thanks all
↧
December 18, 2015, 9:19 am
I have a couple of programs that will not run. When I try I get a message stating "Cannot load MSDX.ocx" What do I have to do as there is no such file on my computer'
↧
December 18, 2015, 10:08 am
Sir, I need to clear cookies from winhttp connection after a certain session. How to do it? Pls help me.
↧
↧
December 18, 2015, 3:26 pm
Hello everyone
I'm looking for a query that allows me to retrieve all the pupils who did not have marks in a given exam. (let's say they were absent) and display them on a listview.
I used this query but it did not give any results.
Code:
RS.Open "select from Student_Table inner join Grades_Table on Student_Table.Id = Grades_Table.PID where exam ='""'", DB, adOpenStatic, adLockOptimistic
If RS.RecordCount = 0 Then
MsgBox " All the students have marks"
else.......
Now with this query I always get
Code:
MsgBox " All the students have marks"
eventhough some students do not have exam marks
thank you
↧
December 19, 2015, 5:27 pm
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
↧
December 19, 2015, 5:35 pm
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
↧
December 19, 2015, 5:38 pm
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
↧
↧
December 19, 2015, 5:41 pm
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
↧
December 19, 2015, 5:45 pm
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
↧
December 19, 2015, 5:49 pm
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
↧