Lilis
Lilis> Dim objServer As New SQLDMO.SQLServer
Lilis> Dim objDatabase As New SQLDMO.Database
Lilis> Private Sub Form_Load()
Lilis> objServer.Connect "(local)", "userSQLServer", "passSQLServer"
Lilis> objDatabase.Name = "iniNamaDBdiSQLServernya"
Lilis> End Sub
Lilis> Private Sub cmdCreateDB_Click()
Lilis> Dim dbFile As New SQLDMO.DBFile
Lilis> Dim dbLog As New SQLDMO.LogFile
Lilis> dbFile.Name = "db_Data"
Lilis> dbFile.PhysicalName = "c:\db.mdf"
Lilis> dbFile.PrimaryFile = True
Lilis> dbFile.FileGrowthType = SQLDMOGrowth_MB
Lilis> dbFile.FileGrowth = 1
Lilis> objDatabase.FileGroups("PRIMARY").DBFiles.Add dbFile
Lilis> dbLog.Name = "db_Log"
Lilis> dbLog.PhysicalName = "c:\db.ldf"
Lilis> objDatabase.TransactionLog.LogFiles.Add dbLog
Lilis> objServer.Databases.Add objDatabase
Lilis> End Sub
Lilis> note: kalo udah bisa bilang2 ya :-)
Lilis> salam
Lilis> lis
ini kalo di komputer stand alone. gimana kalo di taro di server .. ?
pathnya bagaimana ? terus create tablenya gimana lis
* note : eh ngomong2 mana prog yang kamu bikin itu liat dunk... (keren
n rapi loh :D)
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
