各位先進大大好
請問delphi7 讀取mysql其中一個table 再新增到sqlite裡面怎麼寫呢?!

while .not. taMysql.eof do
begin
taSqlLite.Append;
taSqlLite.FieldByName('f1').Value := taMysql.FieldByName('f1').Value ;
.
.
.
taSqlLite.Post;

taMySql.Next;
end;

不好意思，最近在寫的時候又發生問題

[code delphi]
sSQL := 'CREATE TABLE huccsqlite ([stockid] varchar(15) PRIMARY KEY,[international_barcode] VARCHAR(45),';
sSQL := sSQL '[stock_description] VARCHAR(50), [use_units] varchar(20),[is_flex] tinyint(1),[mbflag] char(1),';
sSQL := sSQL '[small_cat_categorydescription] varchar(10), [middle_cat_categorydescription] varchar(10),[large_cat_cat_categorydescription] varchar(10),';
sSQL := sSQL '[ou1_stockcategory_name] varchar(50), [suppname] varchar(26),[price] decimal(20,4));';
//sSQL := sSQL 'COLLATE NOCASE);';
sldb.execsql(sSQL);
sldb.execsql('CREATE INDEX TestTableName ON [huccsqlite]([stockid]);');
[/code]

以上是我用delhpi sqlite 要創出來的資料庫
當我使用您的語法的時候會出現
"could not convert variant of type (UnicodeString) into type (Double)"
或者"could not convert variant of type (null) into type (olestr)"
請問該怎麼解決呢??

taSqlLite.FieldByName('f1').Value := taMysql.FieldByName('f1').Value ;

A1 你建立在 sqlLite 跟 mySql 的 F1 的 data type 是不一樣的,
ex F1 是 string, 在 sqlLite, mySql 必須都是 string

或是你必須指定明確的型態
taSqlLite.FieldByName('f1').AsString := taMysql.FieldByName('f1').AsString ;
或是
taSqlLite.FieldByName('f1').AsInteger := StrToInt(taMysql.FieldByName('f1').AsString) ;

如果考慮 WideString , 試看看
taSqlLite.FieldByName('f1').AsWideString := taMysql.FieldByName('f1').AsString ;

不好意思大大，在請問一下access violation at address in module read of address 是什麼錯誤???

編輯記錄

不好意思大大，在請問一下not an integer or numeric field是什麼錯誤???
[code delphi]
ClientDataSet1.FieldByName('ListPrice').AsString := floattostr( sltb.FieldAsDouble(sltb.FieldIndex['price']));
[/code]

您用了尚未被 Create 的 object

var
st : TStringList ;
begin
ShowMessage(st.Count) ;
end;

因為 st 尚未被 Create 所以用了就會出現錯誤訊息,
使用 object 之前必須先 Create, 如下

var
st : TStringList ;
begin
st := TStringList.Create;
ShowMessage(st.Count) ;
end;



===================引 用 a9907087 文 章===================
不好意思大大，在請問一下access violation at address in module read of address 是什麼錯誤???

如果是我寫, 會如下

ClientDataSet1.FieldByName('ListPrice').AsString := floattostr( sltb.FieldByName('price').AsDouble)

你的 ListPrice 如果是數值欄位 可以如下
try
ClientDataSet1.FieldByName('ListPrice').AsDouble := sltb.FieldByName('price').AsDouble ;
except
// 這邊可以寫 log 紀錄那些發生問題
// ListPrice 設為 0 也是有風險的, 依照您的情況做處理吧
ClientDataSet1.FieldByName('ListPrice').AsDouble := 0 ;
end;






===================引 用 a9907087 文 章===================
不好意思大大，在請問一下not an integer or numeric field是什麼錯誤???
[code delphi]
ClientDataSet1.FieldByName('ListPrice').AsString := floattostr( sltb.FieldAsDouble(sltb.FieldIndex['price']));
[/code]

謝謝各位的回答，我在dbGrid做了一個項次的欄位
現在每案一次按鈕資料就會在最上面增加，會讓我的項次變成54321
可是我想要的是12345，請問要怎麼改??

我有一個edit，想要用按下enter以後才執行我的後台的程式

編輯記錄

1
BeforeInsert 時把 qyTemp.Last
2
在 EditBox 的 On-Key-Press
if key = #13 then
begin
.....................................
end

===================引 用 a9907087 文 章===================
謝謝各位的回答，我在dbGrid做了一個項次的欄位
現在每案一次按鈕資料就會在最上面增加，會讓我的項次變成54321
可是我想要的是12345，請問要怎麼改??

我有一個edit，想要用按下enter以後才執行我的後台的程式

編輯記錄

不好意思，剛剛又遇到dbGrid選取以後案刪除鈕就刪除該項被選取的資料
該如何做呢??

本來就是該選那個就刪那個
===================引 用 a9907087 文 章===================
不好意思，剛剛又遇到dbGrid選取以後案刪除鈕就刪除該項被選取的資料
該如何做呢??

不用寫任何語法嗎??
是刪除dbGird裡面選取的那一行
我有一個刪除的button按下去 就刪除畫面上dbGird那一行
我的想法應該要寫些什麼。

qyTemp.Delete;

===================引 用 a9907087 文 章===================
不用寫任何語法嗎??
是刪除dbGird裡面選取的那一行
我有一個刪除的button按下去 就刪除畫面上dbGird那一行
我的想法應該要寫些什麼。