ilhanxxx Posted May 29, 2008 Share Posted May 29, 2008 <HTML> <HEAD> <TITLE>HTA - HTML Applications</TITLE> <HTA:APPLICATION WINDOWSTATE="maximize" BORDER="none" INNERBORDER="no" SHOWINTASKBAR="no" SCROLL="no" APPLICATIONNAME="Build" NAVIGABLE="yes"> </HEAD> <script language="VBScript"> Sub TestADO Set objADOConnection = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.Recordset") objADOConnection.Open "Provider=SQLOLEDB;Data Source=MSSQL01;Initial Catalog=BuildDB;User ID=root;Password=67457e226a1a15bd;" SQLQuery1 = "Select * From user" objRecordSet.Open SQLQuery1, objADOConnection, 2, 2 objRecordSet.MoveFirst DataArea.InnerHTML = objRecordSet.Fields("ServerName") End Sub </script> <BODY STYLE="font:14 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#000000', EndColorStr='#E1E1E1')"> <DIV STYLE="position:relative;left:90;top:100;width:100%;"> <FONT COLOR="White" FACE="Tahoma"> <H2>Build Environment </H2> <BR><BR> <INPUT TYPE="button" VALUE="ADO Test" NAME="run_button" onClick="TestADO"> <P> <BUTTON ACCESSKEY="x" STYLE="font-face:Tahoma;font-size:13px;" onClick="self.close()">E<U>x</U>it</BUTTON> <SPAN ID = "DataArea"></SPAN> </FONT> </DIV> </BODY> </HTML> Yukardaki uygulamayı MYSQL ile nasıl çalıştırırım ? Link to comment Share on other sites More sharing options...
cumman Posted May 29, 2008 Share Posted May 29, 2008 yukarıda MSSQL ile yapılmış bağlantının mssql bağlantı satırlarını şu satırlarla değiştirin: Set bag = Server.CreateObject("ADODB.Connection") bag.Open "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=kullanici; pwd=sifre; database=veritabani; option=3; port=3306;" Set rs = bag.Execute("SELECT * From tablo")[/CODE] Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 29, 2008 Administrator Share Posted May 29, 2008 http://www.connectionstrings.com/?carrier=mysql[/CODE] Link to comment Share on other sites More sharing options...
ilhanxxx Posted May 30, 2008 Author Share Posted May 30, 2008 <script language="VBScript"> Sub TestADO Set bag = Server.CreateObject("ADODB.Connection") Set baglanti = Server.CreateObject("ADODB.Recordset") bag.Open "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=root; database=joomla; option=3; port=3306;" Set rs = bag.Execute("SELECT * From jos_users") baglanti.Open SQLQuery1, objADOConnection, 2, 2 baglanti.MoveFirst DataArea.InnerHTML = baglanti.Fields("Server") End Sub </script> Hata veriyor bu şekilde yaptım :S Hata mesajı : SERVER : Nesne gerekli Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 30, 2008 Administrator Share Posted May 30, 2008 Serverinde mysql odbc'si kurulu olması gerek. http://dev.mysql.com/downloads/connector/odbc/5.1.html[/CODE] Link to comment Share on other sites More sharing options...
ilhanxxx Posted June 1, 2008 Author Share Posted June 1, 2008 DOSTLAR MYSQL kullanan biri bu HTA yı düzenleye bilirmi. Ben sorunu çözemedim . Lütfen bi TEST Edermisiniz. MSQL 4 KULLANIYORUM , herhangi bir tabloya baglaya bilirmisiniz bu uygulamayı , Lütfen Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.