Notifikationer

Markér alle som læst Log ud

mc.lucifer Praktikant

11. december 2002 - 23:07 Der er 12 kommentarer og
2 løsninger

VB og Mysql

Ja nu er den der næsten men jeg er løbet ind i et mindre problem

Private Sub Command1_Click()
Dim dbs As Database
Set dbs = OpenDatabase "HVAD SKAL JEG SKRIVE HER ``???")

dbs.Execute " INSERT INTO lagerenhed " _
& "(Navn, Place, Bought_date, Bought_firm, Garenti, User, Price, Text) VALUES " _
& "('Ricky', 'Stolen', '2002-11-05', 'Silvan', '2002-11-05', 'Ricky Larsen', '500', 'Test', );"

dbs.Close
End Sub

Help i VB siger at jeg skal skrive

Set dbs = OpenDatabase("Northwind.mdb")

Men jeg kan ikke smide stien ind i den da jeg som sagt trækker det på en Mysql db

Hjælp mig lige en eller anden af jer kloge hoveder

MC

Synes godt om

medions Nybegynder

11. december 2002 - 23:12 #1

Det kommer jo an på om den ligger lokalt eller hvad den gør! Hvis MySQL DB'en ligger lokalt skal du øre sådan her:

objConn.Open "Driver={mySQL}; Server=ServerNavn; Option=16834; Database=DatabaseNavn;"

Hvis den ligger eksternt skal du gøre sådan her:

objConn.Open "Driver={mySQL}; Server=host.domain.com; Port=3306; Option=131072; Stmt=; Database=DatabaseNavn; uid=Brugernavn; pwd=Adgangskode;"

//>Rune

Synes godt om

mc.lucifer Praktikant

11. december 2002 - 23:13 #2

i stedet for

Set dbs = OpenDatabase("Northwind.mdb")

MC

Synes godt om

mc.lucifer Praktikant

11. december 2002 - 23:15 #3

Never mind tror jeg har fanget den

MC

Synes godt om

mc.lucifer Praktikant

11. december 2002 - 23:16 #4

Ok jeg havde ikke fattet en skid mand

Private Sub Command1_Click()
Dim dbs As Database
Set dbs = objConn.Open("Driver={MySql}; Server=localhost; Option=16834; Database=Lager;")

dbs.Execute " INSERT INTO lagerenhed " _
& "(Navn, Place, Bought_date, Bought_firm, Garenti, User, Price, Text) VALUES " _
& "('Ricky', 'Stolen', '2002-11-05', 'Silvan', '2002-11-05', 'Ricky Larsen', '500', 'Test', );"

dbs.Close
End Sub

Giver fejl

MC

Synes godt om

mc.lucifer Praktikant

11. december 2002 - 23:17 #5

Har også prøvet uden ( ) troede bare du havde glemt dem

Set dbs = objConn.Open "Driver={MySql}; Server=localhost; Option=16834; Database=Lager;"

MC

Synes godt om

mc.lucifer Praktikant

11. december 2002 - 23:48 #6

Er der ikke lige en der kan rette min fejl befængte koder
MC

Synes godt om

olly Nybegynder

12. december 2002 - 00:28 #7

Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset

'Variable til parametre til oprettelse af connection
Dim strConn As String

strConn = "Driver={MySql}; Server=localhost; Option=16834; Database=Lager;"

Conn.Open strConn

Dim SQLstring As String

SQLstring = "SELECT * FROM tabel"

rs.Open SQLstring, Conn, adOpenStatic, adLockReadOnly, adCmdText

Synes godt om

medions Nybegynder

12. december 2002 - 00:28 #8

'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

Dim objConn As New Connection

objConn.Open "Driver={MySql}; Server=localhost; Option=16834; Database=Lager"

//>Rune

Synes godt om

mc.lucifer Praktikant

12. december 2002 - 09:51 #9

Hvis jeg nu skære ud i pap, JEg er sikkert ikke den bedste til at forklare, og det undskylder jeg

Jeg skal have sat nogle ting ind i Sql´en

Derfor vil jeg gerne have en lille Step b Step "Ikke en dybte gående" bare en der lige forklare mig hvad der sker og hvad jeg skal skrive

Altså Alt hvad der skal stå inden for texten

Private Sub Command1_Click()

End Sub

Jeg sætter gerne point satsen op, men det er jeres afgørelse, JEg ved ikek hvad sådanne noget skal koste i god dansk point valuta
MC

Synes godt om

mc.lucifer Praktikant

12. december 2002 - 10:28 #10

Ok, Nu har jeg leget lidt med din olly og den ser ud til at virke lidt bedere men stadig ikke helt, Når jeg aktivere knappen for jeg følgende fejl

Run-time error '-21474667259 (80004005)';
[Microsoft][ODBC Driver Manager] Datakildenavnet blev ikke fundet,
Og der er ikke angivet en standart driver.

Jeg har på Adodb sat hak i "Use ODBC data Source Name" og den har jeg testet og den sagde at det lykkedes at skabe forbindelse, Og programmet henter også data fra Databasen, Med Text1´s Datasource osv
Så databasen virker og programmet henter, Men den kan ikke skrive i DB´en

MC

Synes godt om

medions Nybegynder

12. december 2002 - 12:10 #11

Det er fordi du ik' har installeret en MyODBC driver! -den finder du inde på www.mysql.com

//>Rune

Synes godt om

olly Nybegynder

12. december 2002 - 12:46 #12

Ja... Lad os få på det rene om du har installeret MyODBC? Helst 2.39.50 tror jeg... Har haft problemer med den nyeste 3.51 selv.... Og så laver du min kode...

Så du skal sætte følgende ind!

-------------------------------

Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset

'Variable til parametre til oprettelse af connection
Dim strConn As String

strConn = "Driver={MySql}; Server=localhost; Option=16834; Database=Lager;"

Conn.Open strConn

Dim SQLstring As String

SQLstring = "INSERT INTO tabel... "

rs.Open SQLstring, Conn

Synes godt om

mc.lucifer Praktikant

12. december 2002 - 13:33 #13

Ok, Efter at jeg indstalerde en myodbc 2,3 så vierkede det sku

Hvorfor er det lige man laver en ODBC driver der ikke virker ??

Nå men langt om længe virker det...

Takker for hjælpen
Olly du for største delen af pointene da din kode virkede mest "Hvis man kan sige det"

Endnu en gang mange tak

MC

Synes godt om

olly Nybegynder

12. december 2002 - 13:37 #14

He he... Der er et eller andet med MySQL's ODBC og så MS produkter... ODBCen virker fint hvis du bare bruger noget andet end MS til at kode i!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS